PopupMenu Items

← →
Adil (2004-08-21 01:02) [0]

Програмно добавляю в ПопупМеню item-ы.
Как делать что бы при нажатии всех item-ов вызывал процедуру
myprocedure.

Где то месяц назад делал этого сам. А сейчас что то не мог:D

← →
KADAN © (2004-08-21 02:19) [1]

MenuItem.OnClick:=MyProcedure;

← →
Adil (2004-08-21 15:06) [2]

Я тоже так делал не получилось.
Нужно было
procedure TForm1.salam(Sender: TObject);
begin
showmessage("salam");
end;

Потом
MenuItem.OnClick:=Salam;

← →
KADAN © (2004-08-21 15:24) [3]

procedure TForm1.FormCreate(Sender: TObject); var m:TMenuItem; begin m:=TMenuItem.Create(nil); m.Caption:="menu item"; m.OnClick:=mclick; PopupMenu1.Items.Add(m); end; procedure TForm1.mclick(sender: tobject); begin showmessage("menu item clicked!"); end;

> Я тоже так делал не получилось.
> Нужно было
> procedure TForm1.salam(Sender: TObject);

Можно обмануть компилятор и приассигнить процедур не-оф-обджект.

var ne:TNotEvent;
begin
@ne:=@salamoleucom;
OnEvent:=ne;
end;

что-то вроде этого.

PopupMenu Items Найти похожие ветки