Главная страница
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.011 c
14-20246
Rradion
2003-06-19 15:05
2003.07.07
СРОЧНО ( к завтрому ) надо решить задачки по Матем. -> 10$ по WM.


4-20345
vic_vm
2003-05-06 23:01
2003.07.07
Определить количество пунктов в Popup menu


9-19944
Pauchok
2002-11-30 03:41
2003.07.07
Помогите новичку (DelphiX)


9-19942
[Baradoo]
2003-01-21 21:26
2003.07.07
Небольшая полезная тема (для знатаков OpenGl)


14-20225
KIE
2003-06-19 13:14
2003.07.07
Настройки сети