Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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


Оформил: DeeCo

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