Зависает анимация

[Janger]

У меня проблема появилась с тем, что анимация при выполнении sql запроса, просто не двигается ....
Пользователь нажимает кнопку, я показываю компонент (Image1.visible:=true), картинка показывается.
Сразу после этого выполняю большой запрос, и вся моя программа "зависает" вместе с анимацией ...
После выполнения запроса, всё начинает работать нормально.
Не могли бы мне, подсказать.
Как лучше всего поступить в данной ситуации?
я думал использовать потоки, но так и не сообразил как их лучше применить ...
p.s.
Для анимации использовал: GIFImage
Использую: delphi 7
СУБД: ms sql 2005

[Artsiom]

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

Пользователь нажимает кнопку

и запускается поток, где

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

я показываю компонент (Image1.visible:=true), картинка показывается

Или

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

Пользователь нажимает кнопку

и запускается поток, где

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

выполняю большой запрос

Примерно так:
Пользователь нажимает кнопку пробела

procedure TMainFormRG.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    #32 : StartGame();//VK_SPACE
    #27 : Application.Terminate;//VK_ESC
  end;
end;

Создаю и запускаю.

procedure TMainFormRG.StartGame();
begin
  MainRexThread := RexThread.Create(True);
  MainRexThread.Priority := tpTimeCritical;
  MainRexThread.Resume;
end;

Процедура самого потока. Там цикл, где и вывожу 2 битмапа.

procedure RexThread.Execute;
begin

    while not MainRexThread.Terminated do
    begin

        Synchronize(  //левой
          procedure
          begin
            MainFormRG.MainImageRex.Canvas.Draw(coordX, 126, btmLeftLeg);
          end);
        Sleep(250);

        Synchronize(RexClean);

        Synchronize(  //правой
          procedure
          begin
            MainFormRG.MainImageRex.Canvas.Draw(coordX, 126, btmRigthLeg);
          end);
        Sleep(250);

        Synchronize(RexClean);
      end;

end;

При этом главная форма не виснет и реагирует на клавиши.
Пример конечно не очень корректен, но вроде как подойдёт.
Думаю вариант: Пользователь нажимает кнопку и запускается поток, где выполняю большой запрос.
будет ОК.

[Аватар]

TAnimate асинхронный же, ток там avi нужен и если XPManifest есть, то асинхронности нет

[Janger]

Artsiom,
спасибо огромное!
всё работает, даже лучше чем я думал!!!
просто огромнейший респект