Интервал Таймера...

[mutabor]

- т.е., когда я заменю этот квадратик на рисунок .bmp или .jpg, то подергивания должны исчезнуть?

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

- пример использования можно синтаксис чтобы понять

можно, но завтра, кстати на два верхних вопроса (2 zetrix, 2 BOBAH13) тоже ответ получишь

[eoln]

Можно на канве выводить. У меня файл 6,5 метров бегает по форме и ничего - приемлимо.
Кидаем на форму таймер с интервалом 10 (можно и больше - кому как), создаём файл Fon.bmp и всё.
Вот как раз и получим

выводи вообще без паузы

движение и прочую логику нужно на таймер вешать

var
  Form1: TForm1;
  b:TBitMap;
  xx,yy,
  xxx,yyy: integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    xx:=0;yy:=0;
    b:=TBitMap.Create;
    b.pixelformat:=pf16bit;
    b.LoadFromFile('Fon.bmp')
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  xxx:=xxx+xx;yyy:=yyy+yy;
  if xxx>0 then xxx:=0;
  if yyy>0 then yyy:=0;
  if xxx<form1.ClientWidth-b.Width then
     xxx:=form1.ClientWidth-b.Width;
  if yyy<form1.ClientHeight-b.Height then
     yyy:=form1.ClientHeight-b.Height;
  form1.Canvas.Draw(xxx,yyy,b)
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=37 then xx:=5;
  if key=39 then xx:=-5;
  if key=38 then yy:=5;
  if key=40 then yy:=-5
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  xx := 0;
  yy := 0
end;

end.

Не самое лучшее решение, но это только пример

[Роман Радер]

Канва это не выход. Если игру уж делать, то можно OpenGL.
Кстати на счет GetTickCount, этот системный таймер еще хуже чем TTimer, потому что у него шаг не 1 мсек а 15мсек. тоесть не 1000 в секунду, а ~66

[BOBAH13]

Кстати на счет GetTickCount, этот системный таймер еще хуже чем TTimer

С откуда такие данные ? Вообще ужас какой то... Насколько мне известно она намного точней чем TTimer ( WM_TIMER ). И уж точно тут вы не правы

1 мсек а 15мсек

Вот пример

var
  k: DWORD;
begin
// какой то код
k := Windows.GetTickCount;
while (Windows.GetTickCount - k < 5 * 1000) do;
// далее код начнеться выполняться через 5 секунд 5 умножить на 1000, т.е. 5000 ммсек. И что это за ерунда выше описана ( без обид ) я сам не понял...

[eoln]

BOBAH13, Роман Радер прав - счетчик ограничен разрешающей способностью системного таймера, это задокументировано и можно проверить например так

a := gettickcount;
sleep(5);
b := gettickcount;
application.messagebox(pchar(inttostr(b-a)), '')

Как видим прошло не 5 мс, а больше, но для 25-ти кадров в сек хватает с лихвой.

Пользуйте QueryPerfomanceCounter()

[Roof]

2 eoln - я на OpenGl делаю

Пользуйте QueryPerfomanceCounter()

- это что такое? ))

2 Роман Радер - насчет OpenGl согласен.

Так вот я не совсем понял...
Если мне нужно, чтобы 10 раз в секунду что-то происходило (например, моя процедура с названием MyProcQuads), то как это написать с помощью gettickcount?

Пример мне нужен

[eoln]

Если 10 раз в секунду надо, то лучше TTimer оставить - хлопот меньше. Правда бывает что формы нет и таймер кинуть некуда во время разработки, то тогда уж создаём свой таймер на идеи сообщений Windows

используем WM_TIMER, читаем документацию по Api: SetTimer и KillTimer,
тут и будет аналог gettickcount
http://www.softhelp.ru/delphi/class/...reate_mm_timer
http://programmersforum.ru/showthrea...light=WM_Timer

[Ring0Sn]

Интересно... и чем же отличаеться TTimer от WM_TIMER ))

[eoln]

Ring0Sn, читай внимательнее

бывает что формы нет и таймер кинуть некуда

[Ring0Sn]

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

Ring0Sn, читай внимательнее

Уважаемый, это вы "читай внимательнее", я неспрашивал что бывает, а в чем отличия TTimer и wm_Timer
Я вот всегда думал что это одно и тоже и не являеться аналогом GetTickCount

procedure TTimer.WndProc(var Msg: TMessage);
begin
  with Msg do
    if Msg = WM_TIMER then
      try
        Timer;
      except
        Application.HandleException(Self);
      end
    else
      Result := DefWindowProc(FWindowHandle, Msg, wParam, lParam);
end;