Задачка

[Shyric]

Вообщем надо сделать такую штуку в Borland Delphi, на паскале, чтобы фигурка двигалась в ту точку куда тыкает мышка, двигалась не резко, а именно ехала туда вот пример решения программы сложным вариантом

xd,yd,ro,phi,dl.xn.yn:real;
onmousedown...
begin 
xn:=Shape1.Left+(Shape.Width div 2);
yn:=Shape1.Top+(Shape.height div 2);
If abs(x-xn)<0,0000000001 then phi:=Pi/2
Else
 Phi:=arctan(abs(y-yn)/abs(x-xn);
If y>yn then phi:=-phi
if x<xn then phi:=Pi-Phi;
Dl:=sqrt(sqr(xn-x)+sqr(yn-y));
ro:=0;
timer1:=true;
Proc.... Timer1.timer....
Begin
ro:=ro+2
xd=ro*cos(phi)+xn;
yd:=-ro*sin(phi)+yn;
shape1.left:=round(xd)-(shape1.width div 2);
shape1.top:=round(yd)-(shape1.height div 2);
If Ro>=dl then timer1.enabled:=faulse;
куча ендов)))

вообщем как то так она будет пахать, я тут как бы не обращал внимание на орфографию, что и на какие процедуры пометил)
Нужно тоже самое но в более простом варианте)) Помогите пожалуйста, можно скинуть Сам Проект с этой прогой, ну или код, Заранее благодарен

[Shyric]

ау)) Ответьте))

[alexBlack]

Это и есть простой вариант.
Разве что (xn, yn) сместить в левый верхний угол, чтобы в цикле не вычитать половину размера.

[Shyric]

неет есть проще способ, короче чтобы он высщитывал путь не таким мудреным способом, грубо говоря чтобы он сразу напрямую к точке ехал по прямой)) я хз как объяснить)) Вообщем именно (я так понял) математически проще)

[alexBlack]

Вы имеете в виду без cos/sin ?
Ну, можно просто разделить расстояние между точками по каждой координате на какое-то количество участков (количество вызовов обработчика таймера, за которое точка достигнет пункта назначения)

dx = (x - xn) / k
dy = (y - yn) / k

а в цикле только добавлять эту разницу