Abschieds "Animation"

[X-SKY]

Hu,

wenn man meine Applikation schließt, soll das Fenster "in sich hingehen" und verschwinden, ich habe das auf einfache Art gelöst, aber es ruckelt leicht.

Delphi-Quellcode:

// Timer auf 200
procedure TForm1.Timer2Timer(Sender: TObject);
begin

  if Form1.Width < 50 then Application.Terminate;

  Form1.Height := Form1.Height-20;

  Form1.Width := Form1.Width -20;

end;

Kann man das Ruckeln entfernen?

[Fussball-Robby]

Timer Intervall auf 1 stellen und nur 10 abziehen, dann sollte es flüssiger sein.

[Die Muhkuh]

Ein Intervall von 1 schaffst Du aber nicht

[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;

[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

[zahor]

du kannst das AnimateWindow auch einfach in tform1.close reinschreiben