确定父组件

时间:2009-05-09 08:20:28

标签: delphi popup toolbar parent owner

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

我已尝试过以下操作,但我一直遇到访问冲突。

...

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

...

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

谢谢,彼得。

1 个答案:

答案 0 :(得分:6)

尝试

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

那会给你一个被按下的TToolButton。