Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

Динамическое меню   Найти похожие ветки 

 
Stocker   (2003-06-24 06:39) [0]

Формирую меню динамически
for i:=0 to Count do
begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption:=Array[i];
NewItem.OnClick:=MenuBookClick;
NewItem.Tag:=i+1;
MBookmarks.Add(NewItem);
end;
ВОПРОС: Как узнать по какому из созданых динамически меню кликнулись?
(искал в TMenuItem что-нть типа ItemIndex не нашел)
Заранее спасибо


 
MBo ©   (2003-06-24 06:46) [1]

а Tag для красоты задаешь?


 
LexusR ©   (2003-06-24 06:52) [2]

в процедуре проверь Tag как сказал MBo

procedure MenuBookClick(Sender : TObject)
begin
case TMenuItem(Sender).Tag
0: something;
1: something1;
2: something2;
....
end;
end


 
Stocker   (2003-06-24 07:44) [3]

Спасибо, сработало!



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
3-19989
Nekto
2003-06-13 15:46
2003.07.07
Из базы в файл


14-20259
Soft
2003-06-19 17:04
2003.07.07
Давайте флейм какой-то разведем


7-20324
Alta
2003-04-25 02:23
2003.07.07
добавить юзеров на win2000


14-20212
muzik
2003-06-17 16:53
2003.07.07
---|Ветка была без названия|---


1-20132
picaroon
2003-06-25 08:07
2003.07.07
Palladin напиши пример на мой вопрос плз!