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

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

Popup Menu [D7, WinXP]

Checist [root] ©   (2005-03-12 12:08:00) 

Программно добавляю итем в PopupMenu, как привязать на его событие OnClick выполнение процедуры ExecProc

---

Navi   (2005-03-12 12:28:00) [1]

procedure TForm1.ExecProc(Sender: TObject);
begin
 ShowMessage((Sender as TMenuItem).Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 MenuItem: TMenuItem;
begin
 MenuItem:= TMenuItem.Create(PopupMenu1);
 MenuItem.Caption:= 'New Item Caption';
 MenuItem.OnClick:= ExecProc;
 PopupMenu1.Items.Add(MenuItem);
end;

---

Наверх