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

Question

我在Delphi中有一个MDI win32应用程序。 它有很多种形式，所有形式和内部组件都有自己的弹出菜单。

一段时间后应用程序空闲触发器启动并关闭所有子窗口。 但如果它显示，它不会关闭弹出菜单。 （例如，用户点击右键和留言计算机 - 弹出菜单也应该在触发开始时关闭。）

GetWindow函数找不到弹出菜单。

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

Answer 1

SendMessage(PopupList.Window, WM_CANCELMODE, 0, 0);

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