Form zum TrayIcon animieren, statt Taskleiste

[ManuMF]

Delphi-Quellcode:

// Ab ins Tray:
Form.Hide;
with Screen do
  DrawAnimatedRects(Form.Handle,
    IDANI_CAPTION,
    Form.BoundsRect,
    Rect(Width - 20, Height, Width - 10, Height));

// Aus dem Tray:
with Screen do
  DrawAnimatedRects(Form.Handle,
    IDANI_CAPTION,
    Rect(Width - 20, Height, Width - 10, Height),
    Form.BoundsRect);
Form.Show;

So mache ich es bei meinem Tray-Icon.

Wenn du die Werte in Rect() gegen die dir bekannte Position tauschst, wirds noch genauer