Форум: "Начинающим";
Текущий архив: 2008.06.22;
Скачать: [xml.tar.bz2];
Вниз
Как создать 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c
