Движение картинки к точке...

← →
Delphi_uzer © (2006-04-13 06:38) [0]

Люди помогите! Мне нужно чтобы мой image двигался по форме в указанное мышкой место, с заданной скоростью! Я пробовал такой код
procedure TForm1.formMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if button<>mbLeft then move:=false else begin move:=true; x0:=x; //запоминаем начальные координаты y0:=y; end; begin if move then begin image1.Left:=x; image1.Top:=y; end; end;

но при этом картинка просто перескакивает в точку.

Помогите!

← →
Jeer © (2006-04-13 11:38) [1]

Представь как ты ходишь из дома в магазин и сделай также, по шагам и с учетом конечно времени на шаг.

← →
grisme © (2006-04-13 11:57) [2]

Jeer © (13.04.06 11:38) [1]
класное педагогическое объяснение, с немного скрытым правильным ответом...уж больше и не посоветовать...)

← →
Delphi_uzer © (2006-04-13 15:19) [3]

> класное педагогическое объяснение, с немного скрытым правильным
> ответом...уж больше и не посоветовать...)

А можно всё же поподробней !

← →
Yegorchic © (2006-04-13 15:54) [4]

Наверное, главное в [1] было

> по шагам и с учетом конечно времени на шаг.

← →
Delphi_uzer © (2006-04-13 16:18) [5]

Я конечно могу сделать движение по шагам в лево или право (вверх, вниз), но как сделать движение к указанной точке с координатой(X и Y) например из середины в левый верхний угол.

мде
p0 = {x0, y0} - стартовая точка
p1 = {x1, y1} - конечная

vS = (p1-p0)/STEPS - вектор скорости, STEPS - количество шагов, за которые нужно из p0 дойти до p1.
далее, например, в таймере:
{
step++;
position += vS;
if ( step >= STEPS ) StopMoving(); // добрались
}

Вообще странно такие вещи объяснять. Или я вопрос неверно понял?

вычисли приращение отдельно по X и по Y за ОДНУ единицу времени.
и через эту единицу прибавляй X - dX, Y - dY.
Могут(они возникнут) возникнуть проблемы с целочисленой системой координат...

> Вообще странно такие вещи объяснять. Или я вопрос неверно
> понял?

Ты всё правильно понял, просто я только начинаю изучать Delphi.

Движение картинки к точке... Найти похожие ветки