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

Вниз

Как создать onClick для PopupMenu, созданного программно?   Найти похожие ветки 

 
Сергей   (2008-05-29 19:53) [0]

Создал программно подменю в PopupMenu1

N:=5
for i:=0 to N-1 do
 begin
 subitem:=PopupMenu1.items[1];
 mainitem:=TMenuItem.create(subitem);
 mainitem.caption:="SubM" + IntToStr(i);
 mainitem.onclick:=nil;
 subitem.onclick:=nil;
 subitem.insert(subitem.count,mainitem);

Подскажите, пожалуйста, как сделать обработчик onClick для созданных программно пунктов подменю, вызвать его по нажатию одного из пунктов и передать в переменную заголовок этого подменю


 
Johnmen ©   (2008-05-29 20:01) [1]

Почитать букварь?


 
Сергей   (2008-05-29 20:06) [2]

Почитай.


 
SergeyIT ©   (2008-05-29 20:09) [3]

Я использую Tag:
mainitem.Tag := 100 + i;
и выбор, что нажато по
case (Sender As TMenuItem).Tag of
 101:...
 102:...
end;
А остальное, как отмечено, в букваре.


 
Сергей   (2008-05-29 20:17) [4]

Спасибо.


 
SergeyIT   (2008-05-29 22:38) [5]

Будут конкретные проблемы - спрашивайте.


 
Amoeba ©   (2008-05-29 23:54) [6]

А вот здесь "букварь":
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342



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

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

Наверх




Память: 0.48 MB
Время: 0.016 c
15-1210502032
просто так
2008-05-11 14:33
2008.06.22
сроки выхода D2008


15-1210239159
ekto
2008-05-08 13:32
2008.06.22
Можно ли программно раскладывать пасьнс паук?


15-1210606096
User1
2008-05-12 19:28
2008.06.22
ADOTable & свойство CursorLocation


10-1118062128
som
2005-06-06 16:48
2008.06.22
Ошибка при заполнении таблицы данными (Word)


15-1210087838
dr_creigan
2008-05-06 19:30
2008.06.22
роды слов.......((((