Текущий архив: 2003.09.08;
Скачать: CL | DM;

Вниз

какой пункт 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;

---

← →
Романов Р.В. ©   (2003-08-27 14:01) [3]

tag, Caption, Name

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.08;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c