| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Magix ©   (2009-05-27 18:15:00) 

Всем привет! тут такой вопрос возник:
Как сделать процедуру 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;

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

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

---

Magix   (2009-05-27 22:03:00) [1]

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

---

Eugene1501   (2009-05-27 21:52:00) [2]

y.OnClick:=ONClickProc;

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

---

Наверх