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

Question

У нас есть TToolbarButton (s) на панели инструментов, каждый со своим собственным TPopupMenu. Всплывающие меню одинаковы, поэтому мы хотели бы иметь только одно меню для всех кнопок панели инструментов. У меня проблема в том, чтобы определить, какая панель инструментов вызвала всплывающее меню.

Я пробовал следующее, но получаю нарушение прав доступа.

...

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

...

Есть идеи, как получить родителя всплывающего меню?

Спасибо, Питер.

Answer 1

Попробуйте

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

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