Процедура в динамички созданном popup menu

← →
Magix (2009-05-27 18:15) [0]

Всем привет! тут такой вопрос возник:
Как сделать процедуру OnClick в динамически созданном списке в PopUp Menu????
Список создается уже в программе и надо сделать так чтобы при нажатии на данный список (меню), уже в программе, выполнялась процедура OnClick!!!
Вот код кнопки, при нажатии которой создаётся список, уже в программе

i:=form1.popupactionbar1.Items[1]; with i do begin b:=TMenuItem.Create(self); with b do begin Caption:=edit1.Text; end; Insert(0,b); c:=TMenuItem.Create(self); c.Caption:="Удалить игру"; form1.popupactionbar1.Items[1].Items[0].Insert(0,c); g:=TMenuItem.Create(self); g.Caption:="Проблема"; form1.popupactionbar1.Items[1].Items[0].Insert(1,g); y:=TMenuItem.Create(self); y.Caption:="Редактировать"; form1.popupactionbar1.Items[1].Items[0].items[1].Insert(0,y); u:=TMenuItem.Create(self); u.Caption:="Очистить проблему"; form1.popupactionbar1.Items[1].Items[0].items[1].Insert(1,u); end;

В данном списке я добавляю меню и два раздела подменю, то есть меню, подменю, подподменю
Вот мне нужно чтобы при нажатии на эти подменю срабатывала процедура, но никак не могу сделать!!!

Подскажите пожалуйста, как это сделать если кто знает!!!
Заранее благодарю!

← →
Eugene1501 (2009-05-27 21:52) [1]

y.OnClick:=ONClickProc;

Где ONClickProc - процедура написанная тобой.

← →
Magix (2009-05-27 22:03) [2]

Спасибо, разобрался!!!!

Процедура в динамички созданном popup menu Найти похожие ветки