Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.012 c
1-24497
qwerty2
2003-08-27 10:59
2003.09.08
Странная проблема с Application.MessageBox


1-24451
Coolguy
2003-08-28 09:14
2003.09.08
TListView с разноцветными Items в режиме vsReport


1-24456
Yanis
2003-08-24 02:03
2003.09.08
Выбор цвета.


1-24530
DM.OMen
2003-08-26 20:53
2003.09.08
Вопрос по процедурам.


1-24489
СергейК
2003-08-27 13:03
2003.09.08
Чтение из ячейки Excel