Form/Fenster in eine bestimme richtung "Fliegen" lassen

[DelTurbo]

Ich möchte das wenn ich auf Minimieren klicke die Form nicht in die Taskleiste "Fliegt", sondern in den Tray. Ich dem "Klick" selber bin ich schon drinne und mache im moment einfach ein Form.Hide.

Danach ein TrayIcon.Visible=True;

Wie bekomme ich es hin, das die Form richtung Tray fliegt???

Danke im voraus

[Luckie]

AnimateWindow: http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

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

[DelTurbo]

Huhu,

damit habe sogar ICH es verstanden :-D

http://www.swissdelphicenter.ch/de/showcode.php?id=1419

Vielen dank

EDIT: Das blöde ist immer, wenn man so garnicht weis wonach man suchen muss.