Скачать: CL | DM;

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;

---

← →
Budy ©   (2004-03-04 07:00) [4]

TUser: Спасибо!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c