Form vorm schliessen von L nach R und R nach L verkleinern

[erniepb]

Hallöle wie wärs wenn du ganz einfach die rste Variante benutzt aber die Breite um 2 subtrahierst ..

Also:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Left := form1.Left+1;
  Form1.Width := Form1.Width-2;
end;

Mfg