Form zum TrayIcon animieren, statt Taskleiste

[Helmi]

Hallo,

mit diesem Code wird die Form beim Minimieren zur Taskleiste "bewegt".
Nun würd ich gerne dieses Animation etwas vergewaltigen, nämlich sohingegen, dass sich die Form nicht zur Taskleiste bewegt, sondern zu meinem TrayIcon in der TNA. (Die Position, also X/Y, des TrayIcons weiss ich).

Kann man diese API-Funktion vom Link umbauen, damit man angeben kann, wohin die Form bewegt wird?
Wenn nicht, wie würdet ihr es lösen, damit die Form zum TrayIcon wandert?
(Ich möcht ungern mit einem Timer arbeiten, und die Form dann dorthin bewegen)

[edit]
Da in dem Link vom Code her etwas fehlt, hab ich mal mein Testprogramm angehängt!
[/edit]

offtopic - wie wärs mal wenn man diese Edit-Tags in der DP übernehmen würde :-)

[mkinzler]

Schau dir mal CoolTrayIcon an.

[Helmi]

ich vergaß zu erwähnen, dass ich schon ein (selbstgebautes-)TrayIcon habe.
Ich würds dieses halt gerne erweitern

[mkinzler]

Du könntest dir aber den Sourcecode von CooltrayIcon anschauen.

[Helmi]

Zitat:

Zitat von mkinzler

Du könntest dir aber den Sourcecode von CooltrayIcon anschauen.

hab ich jetzt mal gemacht - aber ich hab nur rausgefunden, dass die dabei die Form auf SW_HIDE stellen...

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

[Helmi]

Hallo,

danke ManuMF für deinen Code-Schnipsel.

Ich hab den mal genommen und in ein Test-Programm gepackt. (siehe Anhang)

Mann beachte meine selbst gebaute Taskleiste :-)