Скачать: CL | DM;

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

← →
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) например из середины в левый верхний угол.

---

← →
a22 ©   (2006-04-13 17:16) [6]

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

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

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

---

← →
grisme ©   (2006-04-14 07:09) [7]

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

---

← →
Delphi_uzer ©   (2006-04-14 07:56) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c