New PopupMenu

← →
Budy © (2004-03-02 12:46) [0]

Приветствую всех!
У меня есть текст:
......... type TForm1 = class(TForm) PopupMenu1: TPopupMenu; New1: TMenuItem; Button1: TButton; ......... procedure Button1Click(Sender: TObject); ......... private { Private declarations } public { Public declarations } end; var Form1: TForm1; N13:TMenuItem; ......... procedure TForm1.Button1Click(Sender: TObject); begin N13:=TMenuItem.Create(Form1); N13.Caption:="sssssssss"; New1.Add(N13); N13.Click; end; .........
А вот как бы для моей N13 сделать N13Click, т.е. событие нажатия на нее? Заранее спасибо!

← →
Budy © (2004-03-02 12:53) [1]

Вообще-то не так:.........
procedure TForm1.Button1Click(Sender: TObject);
begin
N13:=TMenuItem.Create(Form1);
N13.Caption:="sssssssss";
New1.Add(N13);
N13.Free;
end;
.........

← →
Budy © (2004-03-02 12:53) [2]

Вообще-то не так:
.........
procedure TForm1.Button1Click(Sender: TObject);
begin
N13:=TMenuItem.Create(Form1);
N13.Caption:="sssssssss";
New1.Add(N13);
N13.Free;
end;
.........

← →
TUser © (2004-03-02 13:36) [3]

var ne:TNotifyEvent;

@ne:=@n13click;
n13.onclick:=ne;

TUser: Спасибо!

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