delphi - 親コンポーネントを決定する

Question

ツールバーにはTToolbarButtonがあり、それぞれに独自のTPopupMenuが関連付けられています。ポップアップメニューはすべて同じであるため、すべてのツールバーボタンに対して1つのメニューのみを使用します。私が抱えている問題は、どのToolbarButtonがポップアップメニューを呼び出したかを判断することです。

次のことを試しましたが、アクセス違反が発生し続けます。

..。

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

..。

ポップアップメニューの親を取得する方法はありますか？

ありがとう、ピーター。

Answer 1

試す

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

これで、押されたTToolButtonが表示されます。