Abschieds "Animation"

[X-SKY]

Zitat von Fussball-Robby:

Zitat von Die Muhkuh:

Ein Intervall von 1 schaffst Du aber nicht

Schon klar
Du könntest anstatt dem Timer auch die Funktion AnimateWindow nehmen, z.B. so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  AnimateWindow(Handle, 2000, AW_HOR_NEGATIVE or AW_VER_NEGATIVE or AW_HIDE);
  Close;
end;

Das funzt ja perfekt Vielen Dank