какой пункт PopupMenu нажат?

← →
a123 © (2003-08-27 13:57) [0]

Подскажите, пожалуйста!
Как определить какой пункт PopupMenu нажат, если они генирируются динамически?

mi := TMenuItem.Create(self);
with mi do
begin
Caption := GlList1.Strings[GlList1.Count-1-i];
Tag:=i;
OnClick := MyClick;
end;
Items.Insert(i, mi);

← →
Hooch © (2003-08-27 13:58) [1]

в OnClick Sender и есть пункт меню

← →
BillyJeans © (2003-08-27 14:01) [2]

в MyClick напиши:

ИмяПункта := (Sender as TMenuItem).Name;

tag, Caption, Name

какой пункт PopupMenu нажат? Найти похожие ветки