Как создать 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]

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

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

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