Текущий архив: 2005.03.27;
Скачать: CL | DM;

Вниз

Popup Menu   Найти похожие ветки 

← →
Checist [root]   (2005-03-12 12:08) [0]

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

---

← →
Navi   (2005-03-12 12:28) [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;

---

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

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.058 c