Hallo!
Das ist relativ einfach!
Application.ProcessMessages;
löst dein Problem.
Soweit ich weiß müsstest du es dann so einbinden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 21 to 100 do
begin
Image1.Left:= i;
sleep(20)
Application.ProcessMessages;
end;
end;
Probiers mal aus und wenns nicht geht, dann melde dich einfach noch einmal!
abescid