确定父组件

Pie*_*Wyk 0 delphi popup parent toolbar owner

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

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

...

with (Sender as TPopupMenu) do
  ShowMessage((GetParentComponent as TPopupMenu).Name);
Run Code Online (Sandbox Code Playgroud)

...

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

谢谢,彼得.

Re0*_*ess 6

尝试

  with (sender as  TPopupMenu)  do
      ShowMessage(PopupComponent.Name);
Run Code Online (Sandbox Code Playgroud)

这应该给你按下的TToolButton.