Delphi: движение маркера по игровому полю

[Alex Cones]

такими тигриными прыжками

<==== Мррррр...

В цикл впихните Sleep(100); И уменьшайте это число, пока не добъетесь нужной скорости. Или используйте таймер.

[Fuadik]

Blondy, после строки marker.Top:=marker.Top-1 (или dec(Marker.Top)) вставьте sleep(500)
Меняйте число 500 на другое и следите за маркером, тогда сможете подобрать то, что нужно. 500 - это полсекунды.

[Alex Cones]

Сообщение от Fuadik

Blondy, после строки marker.Top:=marker.Top-1 (или dec(Marker.Top)) вставьте sleep(500)
Меняйте число 500 на другое и следите за маркером, тогда сможете подобрать то, что нужно. 500 - это полсекунды.

1) Обязательно было слово в слово меня повторять? Сообщения набиваете?
2) 0.5 * 200 = 100. Будет Ооооочень весело наблюдать, как снаряд летит полторы минуты.

[Swarog]

пробуй так

     for i:=0 downto -200
      do
        begin
          marker.Top:=marker.Top-1;
          sleep(25);
          application.ProcessMessages;
        end;

[crystalbit]

Ну раз уж на то пошло

var
  i:integer;
  tc:cardinal;
.....
  for i:=0 downto -200 do begin
    marker.Top:=marker.Top-1;
    tc:=GetTickCount;
    repeat
      Application.ProcessMessages;
    until tc-GetTickCount>200;
  end;

[Blondy]

Всем спасибо огромное, сейчас буду пробовать))

Извините, за задержку с благодарностями - увлеклась рисованием главной обложки для игры.

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

Если не выйдет фильма - я опять к Вам))

[apromix]

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