Ускорить переход между Image

[veniside]

По ДиректХ тут примеры есть. Но это всё с нуля переписывать. Начните с BitBlt() или в конце-концов ScrollWindow(), только с фпс разберитесь, а именно, сколько раз в секунду будете двигать картинку. Потоки тут только помешают, таймера достаточно будет.

[Volt]

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

procedure TForm1.Button1Click(Sender: TObject);
begin
Image2.Left := Form1.Width;
form1.DoubleBuffered:=True;
Image2.Top := 0;

timer1.Enabled:=true;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Close
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image2.Left := Image2.Left - 5;
if Image2.Left <= 0 then Timer1.Enabled:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

   Image2.Left := Form1.Width;
   form1.DoubleBuffered:=True;
   Image2.Top := 0;
   repeat
     Image2.Left := Image2.Left - 15;
     sleep(2);
     Application.ProcessMessages;

   until Image2.Left <= 0;

end;

[ArtGrek]

ушел учить DirectX i Sprits

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

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

а в чем они быстрее чем мои код?

[Stilet]

а в чем они быстрее чем мои код?

Гораздо быстрее
Как раз на этих библиотеках (плюс еще OpenGL) держатся 98% мультимедиа в Виндовсе