Определить родительский компонент

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);

Это должно дать вам кнопку TTool, которая была нажата.