Как программно назначить событию OnClik для меню свою процедуру?

← →
Lexa (2004-06-24 12:53) [0]

Мастеры помогите плиз!
Как программно назначить событию OnClik для меню свою процедуру?

procedure TForm1.Button1Click(Sender: TObject);
var Item1 : TMenuItem;
begin
Item1:=TMenuItem.Create(self);
Item1.Caption:="!!!";
PopupMenu.Items[0].Add(Item1);

PopupMenu.Items[0].Items[0].OnClick:=p; //?????

end;

procedure p(Sender : TObject);
begin
Form1.Caption:="!!!!!!!!!!!!!!!!!!!!";
end;

← →
Lexa (2004-06-24 12:58) [1]

и подскажите плиз, как в эту процедуру p передать параметр, н-р номер Item"а на кторый щёлкнули.
Спасибо.

← →
имя (2004-06-24 13:02) [2]

Удалено модератором

← →
KSergey © (2004-06-24 13:09) [3]

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342

Причем употребление Form1 не нужно. Т.е.
procedure TForm1.p(Sender : TObject); begin Caption:="!!!!!!!!!!!!!!!!!!!!"; end;

← →
Lexa (2004-06-24 13:24) [5]

Спасибо

Как программно назначить событию OnClik для меню свою процедуру? Найти похожие ветки