获取TPopupMenu的调用组件
我有一个 TStringGrid，它有一个 TPopupMenu 连接。通过单击弹出菜单的一个事件，我想获取调用组件。那可能吗？
背景：这是一个更大的项目，每个表单都有一个我可以继承的“BasicForm”。所以我想为包含复制、选择等内容的网格提供一个“默认弹出菜单”。在继承的形式中，我只将网格（如果存在）与该弹出窗口匹配，我就完成了。
回答
似乎您正在寻找TPopupMenu 的 PopupComponent属性：
Vcl.Menus.TPopupMenu.PopupComponent
指示最后显示弹出菜单以响应鼠标右键单击的组件。
阅读 PopupComponent 以确定当前正在使用弹出菜单的控件。在多个控件共享同一个弹出菜单的应用程序中，使用 PopupComponent 来确定它们中的哪个显示了菜单。
在以编程方式调用 Popup 方法以调出弹出菜单之前，设置 PopupComponent 以将控件与菜单关联。
- 应该在某处提到 FMX。否则每个人都假设 VCL。