ApplicationEvent im Schleifenmodus auslösen

[Moony]

Hallo zusammen,

Ich minimiere beim Start die Applikation in den Systemtray und entferne die Applikation aus der Taskleiste, so dass nur noch das Systemtray vorhanden ist. Anschließend wird ein TimerObjekt gestartet. Innerhalb des Timerobjekts wird eine While-Schleife ausgeführt.

Nun das Problem:

Solange die While-Schleife nicht beendet wird, kann auch die Applikation über das Icon nicht auf den Desktop geholt bzw. wenn die Applikation auf dem Desktop ist, dann kann sie nicht wieder in den Systemtray minimiert werden.

Meine Frage hierzu wäre, wie kann man die Applikation bzw. das Icon während der Schleifenlaufzeit aktivieren?

Das Icon erstelle ich über ein TNotifyIconData-Objekt.

Ich hoffe es kann mir jemand weiterhelfen.
Danke im vorraus.

Gruß, Moony

[chrisw]

wie wäre es application.processmessages mit in die Schleife aufzunehmen, dann würden die Messages doch verarbeitet werden.

[Moony]

Warum einfach wenns auch schwer geht....Danke, da hab ich ja gar nicht dran gedacht!

Was mich jetzt noch irritiert ist, dass der Hint für den Systemtrayicon nicht aktualisiert wird. Vielleicht da eine Idee für?

[Moony]

Danke, habs schon selbst gelöst. :dancer:

Man muß nachdem man vom NotifyIconData-Objekt den Hint ändert, die Methode

Delphi-Quellcode:

Shell_NotifyIcon(NIM_MODIFY, @NIM);

aufrufen. Wichtig mit der Message "NIM_MODIFY". Damit wird Icon, Hint & Co. aktualisiert.

Gruß, Moony