Form/Fenster in eine bestimme richtung "Fliegen" lassen

[medirar]

Vielleicht hilft das: http://www.delphi-treff.de/tipps/app...um-systemtray/

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  Screen.DrawAnimatedRects(Handle, IDANI_CAPTION, BoundsRect,
    Rect(Width - 20, Height, Width - 10, Height));
end;

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Restore(Sender: TObject);
begin
  Screen.DrawAnimatedRects(Handle, IDANI_CAPTION,
    Rect(Width - 20, Height, Width - 10, Height), BoundsRect);
end;