[Axotnik]

дело состоит в том..как можно с помощью клика мишки на форме рисунок должен "поплисть" на место клика мишки..как определить координаты клика мишки...
вот есть код ...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, jpeg, ExtCtrls;   type   TForm1 = class(TForm)     Image1: TImage;     Timer1: TTimer;     procedure FormMouseDown(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);     procedure Timer1Timer(Sender: TObject);    private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   dx, dy, g:real; implementation procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer);   var x1,y1: integer; begin   x1:=x-Image1.Left;   y1:=y-Image1.Top;   g:=sqrt(sqr(x1)+sqr(y1));   dx:=g / x1;   dy:=g / y1; end;   procedure TForm1.Timer1Timer(Sender: TObject); begin Image1.Top:=Image1.Top+round(dy); Image1.Left:=Image1.Left+round(dx); end; end.

[Axotnik]

как определить координаты места на которое било произведенно нажатие мишки на форме в делфи..

[zip000]

Axotnik, видишь вот это
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Вот эти X и Y и есть координаты курсора в момент нажатия кнопки.

[The Shadow]

А если делать в OnClick, то можно сделать так:

Код:

1 2 3 4 5 6 7 8

var CPos:  TPoint; begin ... GetCursorPos(CPos); ScreenToClient(CPos); ... end;

[ARIMAN]

Можно вообще поступить так:

var
CurPos:TRect;
begin
GetCursorPos(CurPos);
end;

[Unocide]

А как найти координаты курсора в TImage? Я так понимаю в вашем случае координаты будут считаться относительно формы.
И получить мне координаты необходимо в числах т.е. х=..., у=...
Делаю так

Код:

1 2 3 4 5 6

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 ничего не добавляется. Получается шо событие не произошло?