delphi - 如何在 Delphi 中找到并关闭弹出菜单？

Question

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

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

GetWindow 函数找不到弹出菜单。

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

Answer 1

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

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