Sanftes Panel Verschieben, nur unter Windows

[Mathias]

Wen ich folgen Code unter Windows laufen lassen, dann geht das Panel Sanft nach rechts.
Unter Linux passiert eine Zeit lang nichts und auf einmal ist da Panel rechts.

Wieso ist dies so ?

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:= 1 to 300 do begin
    Sleep(10);
    Panel1.Left:=i;
  end;
end;

[Warf]

Wen ich folgen Code unter Windows laufen lassen, dann geht das Panel Sanft nach rechts.
Unter Linux passiert eine Zeit lang nichts und auf einmal ist da Panel rechts.

Wieso ist dies so ?

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:= 1 to 300 do begin
    Sleep(10);
    Panel1.Left:=i;
  end;
end;[/quote]
Windows Forms aktualisieren nicht von selbst, sondern nur wenn dein main Prozess grade am Idlen (warten) ist. Verwende entweder Panel1.Refresh oder Self.Refresh oder Application.ProcessMessages, das "zwingt" die Form zum aktualisieren

[Mathias]

Windows Forms aktualisieren nicht von selbst, sondern nur wenn dein main Prozess grade am Idlen (warten) ist.

Es ist genau umgekehrt, unter Linux bewegt sich nichts. Unter Windows hat man eine Bewegung gesehen, aber es wurde ein Schatten mitgezogen.

Mit Application.ProcessMessages; nach Sleep(10); geht es nun unter Windows un Linux ohne Fehler.

Danke für den Tip !