Таймер.

[-=DeS=-]

Флеш,
повыставляй в цыклах application.processmessage;
Перед Sleep;

[Flash_]

не работает:
[Error] game.pas(36): Undeclared identifier: 'processmessage'

[AVer]

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

не работает:
[Error] game.pas(36): Undeclared identifier: 'processmessage'

Ну во-первых

application.ProcessMessages;

А во-вторых можно так:

Shape1.Repaint;

[-=DeS=-]

Ну копипастить тоже недело!!!
Да а вообще я бы использовал таймер...

[Flash_]

Всё работает как надо! -=Des=-, AVer - респект=)
Ток трабл такой: на кнопки понажимаешь, перестаёшь - а шарик по экрану ещё катается! Гг
И ещё надо как-то его движения ограничить - чтоб нельзя было за пределы формы уезжать=)

[-=DeS=-]

Флэш давай игру то =) поиграем вместе...

[Flash_]

Дес, игры пока что нет..( Есть шарик и форма. ПОка что всё.. Но есть Кууучча идей - осталось реализовать. Чем и занимаюсь. Думаю что-то игроподобное будет уже через пару дней. Так вот.=)
Хотя если хочешь - могу шарик с формой залить.) Покатаем его вместе..хх))

[-=DeS=-]

возможно во время плавного перемещения
обьекта тебе потребуется перерисовка других обьектов, а процедура Sleep стопорит обработку сообщений в главном потоке.
+ к этому, как я понял KeyDown обработает все клавиши нажатые даже во время Sleep, а значит если игрок быстро нажмет несколько раз клавиши, а потом перестанет нажимать то ему придется подождать пока обьект закончит перемещение...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

const GridStep = 50;

type
TForm1 = class(TForm)
    face: TShape;
    tmrMain: TTimer;
    procedure tmrMainTimer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
{ Private declarations  }
XStep, YStep : Integer;
  public
{ Public declarations  }
end;

Far
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.tmrMainTimer(Sender: TObject);
begin
Face.Top := Face.Top+YStep;
  Face.Left := Face.Left+XStep;

  if (Face.Top mod GridStep) = 0 then
YStep := 0;

  if (Face.Left mod GridStep) = 0 then
XStep := 0;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState)
begin
case Key of
VK_UP : YStep := -5;
    VK_DOWN : YStep := 5;
    VK_LEFT : XStep := -5;
    VK_RIGHT : XStep := 5;
  end;
end.

end.

В начальное положение face:
Top и Left должны быть кратны GridStep.

Пример простой и довольно "хреновенький" но поэксперементировать и подогнать под задачу вполне реально.
Если требуется что бы при зажатой клавише обьект всегда перемещался используй GetKeyState, тогда обрабатывать
KeyDown не требуется... В коде специально допущены ошибки, чтобы копипастить не повадно было...

[Flash_]

Спасибо, твой способ, конечно, правильней..

P.S. После нескольких дней "упорных трудов" получилось что-то отдаленно напоминающее досовскую игру Pacman. А сегодня взялся книгу по OpenGL читать и понял - чтобы что-то хоть немного стоящее сделать - надо учиться, учиться и учиться. А не задавать тупые вопросы...

[PikeIt]

Делаю игрушку(Ракетой надо взлететь с одного космодромчика на другой(учитывая скорость, угол, точность приземления, время, колво топлива(мож еще что дабавлю)))
У меня в ней работают 2 таймера(либо 1 либо другой)
и вот думаю мне проверку точности приземления, полета за границу уровня... вставать в каждый из таймеров или лучше создать 3 таймер который будет все это проверять? посоветуйте