Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c