Вопрос

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

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

...

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

...

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

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

Это было полезно?

Решение

Попробуй

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

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

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top