Бесконечный цикл с определенным шагом в Delphi7

[BuT@JL]

Вообщем проблема у меня такая. Мне нужно плавно и без дерганий переместить image. Я пробывал по таймеру, но есть проблема таймер не очень точный и перемещение происходит с небольшими рывками и с нагрузкой на проц. Дальше я пробывал цикл for to do с использованием sleep(), но там тоже есть проблема прога зависает а после картинка без перемещения оказывается в нужном месте.
Вот я и решил попробывать сделать бесконечноый цикл с шагом например 4, ну что то типа таймера, возможно это сделать в delphi? Если да, то как это сделать? помогите пожалуста.
Спасибо за внимание

[Sazary]

Сообщение от BuT@JL

Дальше я пробывал цикл for to do с использованием sleep(), но там тоже есть проблема прога зависает а после картинка без перемещения оказывается в нужном месте.

А вы вот так сделайте:

procedure TForm1.Button1Click(Sender: TObject);
var
i : longint;
x : integer;
begin
Image1.Picture.LoadFromFile('1.bmp');
x := Image1.Left;

for i:=1 to 20 do
 begin
 inc(x);
 Image1.Left := x;
 Image1.Refresh;
 Sleep(100);
 end;

end;

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

Цикл с заданным шагом можно сделать используя while:

step := 4;
i := 0;
while i<100 do
 begin
 //..............
 //..............
 x := x + step;
 end;

[mutabor]

Для этого таймер достаточно точный, скорее мощности процессора не хватает. От манипуляций с циклами думаю ничего не изменится.
Картинка большая?

[BARNEY]

а не проще в потоке?

[АНК]

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

procedure TForm1.Button1Click(Sender: TObject);
var
i : longint;
x : integer;
begin
Image1.Picture.LoadFromFile('1.bmp');
x := Image1.Left;

for i:=1 to 20 do
 begin
 inc(x);
 Image1.Left := x;
 Image1.Refresh;
 Sleep(100);
 end;
end;

Чтобы Image1.Refresh; выполнялось в этом цикле необходимо добавить Application.ProcessMessages;

[BuT@JL]

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

Для этого таймер достаточно точный, скорее мощности процессора не хватает. От манипуляций с циклами думаю ничего не изменится.
Картинка большая?

Процессор не особо слабый AMD Athlon 64 X2 6000+
У меня всего три картики: одна стоит на фоне (1024 х 768),
а остальные 2 двигаюстя (780 х 516)

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

а не проще в потоке?

Я ни когда не работал с потоками, короче не умею )

[BARNEY]

ну учиться думаю пора читайте

[BuT@JL]

Потоками тоже не получается, нагрузка на проц как шла так и идет 40%

[russian-stalker]

Вы их синхронизируете? Попробуйте выставить меньший приоритет

[mutabor]

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