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

Процедура в динамички созданном 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]

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

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.005 c