Как заставить Image двигаться по прямой к указанной точке?

[Yougan]

Извините, что отнимаю ваше драгоценное время своим вопросом. Суть моей проблемы в том, что имеется Image с определенными координатами начала движения, и есть координаты точки окончания его движения. Мне надо сделать так, что Image двигался в таймере по прямой от точки начала движения к точке конца. Не подскажете, как сделать?

[~Psycho~]

самое простое
На примере из правого нижнего угла в левый верхний
image1.left := image1.left + 1;
Image1.Top := image1.top + 1;
If image1.left = 0 then
Begin
timer1.Enable := false;
End;
If image1.top = 0 then
Begin
Timer1.enable := false;
End;

[phomm]

это коряво.. уж извините )) гораздо лучше так:

var sxpos, fxpos, sypos, fypos: integer;
cx, cy, dx, dy : extended;
...
procedure button1click(sender : tobject);
begin
sxpos := image1.left;
sypos := image1.top;
fypos := strtoint(Edit1.Text); 
fxpos := strtoint(Edit1.Text); // где-то уже получили координаты, рассчитываем смещение

if abs(fxpos - sxpos) > abs(fypos - sypos)
  then begin
    dy := (fypos - sypos)/abs(fxpos - sxpos);
    dx := 1;
  end
  else begin
    dx := (fxpos - sxpos)/abs(fypos - sypos);
    dy := 1;
  end;
cy := sypos;
cx := sxpos;
timer1.enabled := true;
end;

procedure timer1.timer(sender : tobject);
begin
cy := cy + dy;
cx := cx + dx;
image1.left := round(cx); 
image1.top := round(cy);
if ( image1.left = fxpos) and ( image1.top = fypos)
  then Timer2.Enabled := false;
end;

[~Psycho~]

это коряво.. уж извините ))

Это было просто для наглядности))

[Swarog]

http://programmersforum.ru/showthread.php?t=153887

Есть готовый пример, компонент бегает за мышью

[Yougan]

Спасибо, компонент не нужен.

[Swarog]

Спасибо, компонент не нужен.

А чем TImage не компонент. там просто показан приницип.