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

TNotyfyEvent - не получается...   Найти похожие ветки 

← →
Fog ©   (2003-08-13 20:44) [0]

Ести процедура:
procedure NewOnClick(Sender : TObject);
begin
//code..
end;

//programm...

procedure TForm1.FormCreate(sender : TObject);
var
nm:TMenuItem;
begin
nm := TMenuItem.Create(MainMenu1);
nm.OnClick := NewOnClick(nm);// И невыходит!
end;

Но ведь TNotyfyEvent это procedure (Sender:TObject) of object! Так и в чем проблемма?

---

← →
Романов Р.В. ©   (2003-08-13 20:50) [1]

nm.OnClick := NewOnClick;

procedure TSomeObject.NewOnClick(Sender : TObject);
begin
//code..
end;

1. Процедура должна быть методом
2. Присваивается имя, то биш указатель на процедуру.

---

← →
circul   (2003-08-14 02:26) [2]

procedure NewOnClick(Sender : TObject);
заменить на
procedure TForm1.NewOnClick(Sender : TObject);

---

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

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



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