как сделать задержку вывода изображения

[pupilMartyr]

Здравствуйте. Подскажите пожалуйста, как сделать задержку при выводе изображения для создания эффекта движения. Делала Sleep, ставила таймер - не помогает. После запуска программы ждет положенное время и выводит уже конечное (самое последнее) изображение.
Вот процедура, где происходит рисование от левого до правого края формы. Translation - метод, пересчитывающий координаты фигуры после перемещения:

  k:=3;
  with Form1 do
    while k < (Image1.Width - 400) do
    begin
      ClearDevice;
      Transform.Translation(3,0);
      Timer1.Enabled:=true;
      DrawNave;
      DrawZenit;
      k:=k+3;
      Timer1.Enabled:=false;
    end;

Заранее спасибо.

[Вадим Мошев]

Я так полагаю, тема анимация в Делфи? Этим я не занимался, но по аналогичном опыту в Турбо Паскале могу посоветовать:
1. Строку включения таймера вынести за пределы цикла.
2. Всё-таки использовать Sleep, но в цикле, например, перед ClearDevice

[pupilMartyr]

Оба варианта безрезультатно(( Жалко долго мучаюсь, инет весь обшарила, там в основном только две этих темы: Sleep и таймер. Не помогает(

  k:=3;
  with Form1 do
    // Timer1.Enabled:=true;
    while k < (Image1.Width - 400) do
    begin
      Sleep(100);
      ClearDevice;
      Transform.Translation(3,0);
      // Timer1.Enabled:=true;
      DrawNave;
      DrawZenit;
      k:=k + 3;
      // Timer1.Enabled:=false;
    end;

А тема - анимация в Delphi (корабль плывет и стреляет из пушки по самолету).

[Вадим Мошев]

Так, подождите...

А что если весь этот код записать в процедуру обработки таймера, которая вызывается каждый раз при истечении заданного интервала?

Поместите этот код туда (тогда никаких Sleep вам не надо будет), а при выходе из цикла (я так полагаю, это завершение анимации?) пишите Timer1.Enabled:=false

[pupilMartyr]

Уже лучше, теперь сначала выводится исходное изображение, потом положенная задержка и финальное изображение)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.CombatActions;
end;

CombatActions - это и есть процедура выше.

[Вадим Мошев]

Мне ещё кажется, что дело в том, что

Transform.Translation(3,0);

Что (какие параметры) этот метод принимает в качестве параметров? Может там не следует использовать константы, а вычисляемые выражения?
Всё-таки, очень мне кажется, что проблема здесь..............

[ReportCube]

Вообще-то очень похоже на гадание! к - локальная переменная? Если да, то зачем? Зачем весь Ваш цикл? Если включаете таймер, то в обработчике таймера всегда:
сначала отключаете таймер, что-то делаете, если необходимо - снова включаете таймер на выходе из обработчика и ждёте следующего события OnTimer.

[Вадим Мошев]

Кстати, да, действительно, цикл ни к чему. Просто при наступлении определённого условия надо выключить таймер: Timer1.Enabled:=false;

[pupilMartyr]

Код метода Translation:

procedure TAfins.Translation(dx,dy:integer);
var a:TCd;
begin
     a[1,1]:=1;  a[1,2]:=0;  a[1,3]:=0;
     a[2,1]:=0;  a[2,2]:=1;  a[2,3]:=0;
     a[3,1]:=dx; a[3,2]:=dy; a[3,3]:=1;
     MulMatr(a);
end;

Это просто дисциплина "Компьютерная графика", тема - преобразования на плоскости. Формируется матрица преобразования (Translation - это перенос на вектор dx, dy), и потом каждая координата перемещаемого тела на эту матрицу умножается, тем самым получаются новые координаты и.т.д. Но это не важно. Уверяю, дело не в этом. Потому что все подобные процедуры проверялись в обработчике Form1.FormKeyPress (это была другая прога), там этими процедурами управляла с клавы.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  ClearDevice;
  Case Key of
  'd': begin
         Transform.Translation(5,0); x:=x+5
       end;
  'a': begin
         Transform.Translation(-5,0); x:=x-5
       end;
  'w': begin
         Transform.Translation(0,-5); y:=y-5
       end;
  's': begin
         Transform.Translation(0,5); y:=y+5
       end;

Конечно, если просто анимация, я бы не заморачивалась,а так - обязательно нужно эти преобразования использовать.
А насчет k - это просто параметр цикла, мне же нужно как то определить, что достигнута правая граница формы (Ширина - длина корабля) и увеличиваю на 3 типо шаг 3, постоянно сдвигает фигуру на вектор (3,0) вправо.

С таймером сейчас попробую без цикла)

[pupilMartyr]

Супер! Спасибо большое!
Помогло с таймером!