delphi - 确定父组件

Question

我们在工具栏上有 TToolbarButton(s)，每个都有它自己关联的 TPopupMenu。弹出菜单都是一样的，所以我们希望所有工具栏按钮只有一个菜单。我遇到的问题是确定哪个 ToolbarButton 调用了弹出菜单。

我尝试了以下方法，但我不断收到访问冲突。

...

with (Sender as TPopupMenu) do
  ShowMessage((GetParentComponent as TPopupMenu).Name);

...

任何想法如何获取弹出菜单的父级？

谢谢，彼得。

Answer 1

尝试

  with (sender as  TPopupMenu)  do
      ShowMessage(PopupComponent.Name);

那应该给你按下的 TToolButton。