如何判断当前窗体有无菜单弹出?

[aflower]

如题

[bokei]

一个笨方法,试一下.
在menu的click事件中把一个标志置为True,再在Form的Move事件里把它置为False.以后判断这个菜单有没有出现就检测这个变量是否为真.(仅供参考)

[sunbn]

用 winapi 拦截menu消息，上面的回答有点问题

[aflower]

>1可以使用AddressOf拦截WM_INITMENUITEM
>2、使用Bruce 的 Subtimer
希望能说的详细点.

[thriller]

同意sunbn。
1、可以使用AddressOf拦截WM_INITMENUITEM
2、使用Bruce 的 Subtimer

[olo]

AnyPopup

[rootGR]

Declare Function AnyPopup Lib "user32" Alias "AnyPopup" () As Long

[aflower]

要判断当前窗体,而不是当前屏幕
Declare Function AnyPopup Lib user32 Alias
AnyPopup () As Long

说明

判断屏幕上是否存在任何弹出式窗口


返回值


Long，如存在弹出式菜单，则返回TRUE（非零）


注解


对该函数来说，弹出式菜单包含所有可见的包容顶级窗口，无论弹出式还是重叠窗口