Как связать `TMenuItem` с `TPopupMenu` в Delphi

Delphi , Компоненты и Классы , Меню

Как связать TMenuItem с TPopupMenu в Delphi

Вопрос о том, как связать элемент меню TMenuItem с его родительским контекстным меню TPopupMenu в среде разработки Delphi, может показаться сложным на первый взгляд. Однако, используя методы, предоставляемые компонентами, можно довольно просто получить нужную информацию.

Проблема

Разработчик столкнулся с задачей определения, к какому контекстному меню относится TMenuItem, когда произошло его кликnięты. В частности, у него есть несколько меток (labels) с различными подписями, и для каждой метки настроено контекстное меню. При клике правой кнопкой мыши по метке открывается контекстное меню, и после выбора пункта меню MenuItem1 разработчик хочет отобразить информацию о подписи метки, по которой был совершен клик.

Решение

Для решения этой проблемы необходимо использовать метод GetParentMenu у TMenuItem, который позволяет получить ссылку на родительское контекстное меню. Затем, зная TPopupMenu, можно получить компонент, по которому было вызвано контекстное меню, с помощью свойства PopupComponent.

Пример кода

procedure TForm1.MenuItem1Click(Sender: TObject);
var
  AParentMenu: TMenu;
  AComponent: TComponent;
  ALabel: TLabel;
begin
  AParentMenu := TMenuItem(Sender).GetParentMenu; // Получаем родительское меню
  AComponent := TPopupMenu(AParentMenu).PopupComponent; // Получаем компонент, вызвавшего контекстное меню
  ALabel := TLabel(AComponent); // Приводим тип компонента к TLabel
  MsgBox(Format('The label right-clicked has the caption %s', [ALabel.Caption])); // Отображаем информацию о метке
end;

Альтернативное решение

Альтернативный подход состоит в том, чтобы сначала получить родительское контекстное меню, а затем доступ к метке, вызвавшей контекстное меню, используя PopupComponent у TPopupMenu.

procedure TForm1.MenuItem1Click(Sender: TObject);
var
  pop: TPopupMenu;
  lbl: TLabel;
begin
  // Получаем родительское TPopupMenu, приведя TMenu к TPopupMenu
  pop := TPopupMenu(TMenuItem(Sender).GetParentMenu);
  // Получаем метку, вызвавшую контекстное меню, приведя PopupComponent к TLabel
  lbl := TLabel(pop.PopupComponent);
  // Отображаем сообщение с информацией о метке
  ShowMessage(Format('The label right-clicked has the caption %s', [lbl.Caption]));
end;

Подтвержденный ответ

Использование метода GetParentMenu у TMenuItem позволяет получить доступ к родительскому TPopupMenu, а свойство PopupComponent у TPopupMenu — к компоненту, по которому было вызвано контекстное меню.

Комментарии

Разработчики, столкнувшиеся с подобной задачей, отмечают, что решение оказалось простым после понимания, что необходимо использовать методы компонентов, а не их свойства.

В этой статье мы рассмотрели, как связать TMenuItem с TPopupMenu в Delphi, и предоставили примеры кода, которые помогут вам решить эту задачу.

Создано по материалам из источника по ссылке.

Вопрос связан с настройкой взаимодействия между элементом меню `TMenuItem` и его родительским контекстным меню `TPopupMenu` в среде разработки Delphi, а также с получением информации о компоненте, вызвавшем контекстное меню, при его активации.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Меню ::