Присвоить событию свою процедуру

← →
SerJaNT © (2007-04-03 04:45) [0]

Пишу:

...
public
procedure Sunduk(Sender: TObject);
...

procedure TForm1.Sunduk(Sender: TObject);
begin
// code
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.OnClick := Sunduk(Image1);
end;

но ругает " Incompatible types: "TNotifyEvent" and "procedure, untyped pointer or untyped parameter""

Как правильно присвоить событию свою процедуру?

← →
ЮЮ © (2007-04-03 07:27) [1]

image1.OnClick := Sunduk;

а Image1 "лови" в параметре: procedure TForm1.Sunduk(Sender: TObject);

Спасибо. всё разобрался.
Оказывается, есть разница между Sunduk() и Sunduk;

Присвоить событию свою процедуру Найти похожие ветки