16.10.2007, 19:24
|
Прохожий
|
|
Регистрация: 16.10.2007
Сообщения: 10
Репутация: 10
|
|
Координаты движение курсора
дело состоит в том..как можно с помощью клика мишки на форме рисунок должен "поплисть" на место клика мишки..как определить координаты клика мишки...
вот есть код ...
Код:
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.
|