如何在Delphi中查找和关闭弹出菜单?

Mik*_*lov 4 delphi winapi popupmenu

我在Delphi中有一个MDI win32应用程序.它有许多形式,所有这些形式和它们的内部组件都有自己的弹出菜单.

一段时间后,应用程序空闲触发器启动并关闭所有子窗口.但如果它显示,它不会关闭弹出菜单.(例如,用户单击右键和已离开的计算机 - 弹出菜单也应在触发器启动时关闭.)

GetWindow函数找不到弹出菜单.

如何找到弹出菜单并关闭它?

kot*_*nci 10

SendMessage(PopupList.Window, WM_CANCELMODE, 0, 0);
Run Code Online (Sandbox Code Playgroud)

全局Menus.PopupList对象管理处理应用程序中VCL弹出菜单的所有消息的窗口.

  • 哦,我太高兴了,没有注意到这一点。谢谢你,@user2819514!:) (2认同)