获取TPopupMenu的调用组件

Question

我有一个 TStringGrid，它有一个 TPopupMenu 连接。 通过单击弹出菜单的一个事件，我想获取调用组件。 那可能吗？

背景：这是一个更大的项目，每个表单都有一个我可以继承的“BasicForm”。 所以我想为包含复制、选择等内容的网格提供一个“默认弹出菜单”。 在继承的形式中，我只将网格（如果存在）与该弹出窗口匹配，我就完成了。

Answer 1

似乎您正在寻找TPopupMenu 的 PopupComponent属性： Vcl.Menus.TPopupMenu.PopupComponent

指示最后显示弹出菜单以响应鼠标右键单击的组件。

阅读 PopupComponent 以确定当前正在使用弹出菜单的控件。 在多个控件共享同一个弹出菜单的应用程序中，使用 PopupComponent 来确定它们中的哪个显示了菜单。

在以编程方式调用 Popup 方法以调出弹出菜单之前，设置 PopupComponent 以将控件与菜单关联。