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

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

← →
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);

---

← →
SerJaNT ©   (2007-04-03 07:49) [2]

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

---

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

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



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