如何在 Delphi 中找到并关闭弹出菜单？答案

【问题标题】：How to find and close popup menu in Delphi?如何在 Delphi 中找到并关闭弹出菜单？
【发布时间】：2013-10-08 05:01:27
【问题描述】：

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

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

GetWindow 函数没有找到弹出菜单。

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

【问题讨论】：

【解决方案1】：

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

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

【讨论】：