Получить родителя пунктов контекстного меню

Благодарю за поддержку!

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Получить родителя пунктов контекстного меню

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.PopupMenu1Popup(Sender: TObject);
 begin
  Label1.Caption := PopupMenu1.PopupComponent.Name;
 end;