А как найти координаты курсора в TImage? Я так понимаю в вашем случае координаты будут считаться относительно формы.
И получить мне координаты необходимо в числах т.е. х=..., у=...
Делаю так
Код:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.TextOut(X,Y,'point');
Memo1.Text:=Memo1.Text+ IntTostr(X) + IntTostr(Y);
end;
В мемо1 ничего не добавляется. Получается шо событие не произошло?