Движение объекта на форме по щелчку мыши

[Dux]

Предлагаю вашему вниманию пример движения танка в направлении, указываемом по щелчку мыши. В алгоритме рассмотрено 13 направлений. Программа получилась довольно мудреная.. кто знает как сделать то же самое, однако другим, возможно более простым и практичным способом?

скачать Object_mouse_move.zip

[Kostia]

http://programmersforum.ru/showthrea...t=1206&page=17
и мой любимый способ:

uses Math;
var
  xx,yy: real;
  a,r,rr: real;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  a:=arctan2((y-yy),(x-xx));
  r:=sqrt(sqr(x-xx)+sqr(y-yy));
  rr:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a:=0; rr:=0; xx:=Button1.Left; yy:=Button1.Top;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if rr<r then
  begin
    xx:=xx+cos(a);
    yy:=yy+sin(a);
    rr:=rr+1;
    Button1.Top:=round(yy);
    Button1.Left:=round(xx);
  end;
end;