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;

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