Как задать onClick в конструкторе?

[TwiX]

asd=class(Timage)
...
private
 procedure click;
end;


constructor asd.Create(AOwner: TComponent);
begin
 inherited;
 onClick:=cklick;
end;

Пробовал так, но выдаёт ошибку

[russian-stalker]

onClick:=cklick;
К тому же вроде надо так:

asd=class(Timage)
...
private
 procedure click(sender:TObject);
end;


constructor asd.Create(AOwner: TComponent);
begin
 inherited;
 onClick:=click;
end;

[TwiX]

Сообщение от russian-stalker

onClick:=cklick;

Просто от руки писал.
За Sender спасибо =)


А как получить координаты клика?

[Greblin]

В общем и целом примерно так

MyMouse: TMouse;
x, y: integer;

x := MyMouse.CursorPos.x - Form1.Left;
y := MyMouse.CursorPos.y - Form1.Top;

Это координаты относительно левого верхнего ушла окна, учитывая заголовок и границы. Если их учитывать не надо, можно пограться с разностью Height и ClientHeight

[russian-stalker]

Если WinAPI, то:

...
type
  TForm1 = class(TForm)
    procedure lbd(var mes:TWMMouse);
    message WM_LBUTTONDOWN;
...

implementation

...

procedure TForm1.lbd(var mes:TWMMouse);
begin
caption:='X: '+inttostr(mouse.CursorPos.X)+' Y: '+inttostr(mouse.CursorPos.y);
end;
end.

Ну думаю лучше обрабатывать события формы