| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как создать onClick для PopupMenu, созданного программно? [D7, XP]
Сергей © (2008-05-29 19:53:00)Создал программно подменю в 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 для созданных программно пунктов подменю, вызвать его по нажатию одного из пунктов и передать в переменную заголовок этого подменю
Amoeba (2008-05-29 23:54:00) [1]А вот здесь "букварь":
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342
SergeyIT (2008-05-29 22:38:00) [2]Будут конкретные проблемы - спрашивайте.
Сергей (2008-05-29 20:17:00) [3]Спасибо.
SergeyIT (2008-05-29 20:09:00) [4]Я использую Tag:
mainitem.Tag := 100 + i;
и выбор, что нажато по
case (Sender As TMenuItem).Tag of
101:...
102:...
end;
А остальное, как отмечено, в букваре.
Сергей (2008-05-29 20:06:00) [5]Почитай.
Johnmen (2008-05-29 20:01:00) [6]Почитать букварь?
| |
