Prog nach Start in Tray - oder auch nicht

[Metschu]

Nabends!
Ich brauche mal nen Denkanstoss:
Das Programm soll nach dem Starten direkt die TNA gelegt werden oder als Normale Form starten, jenachdem wie es in der INI-Datei hinterlegt ist.

Wenn ich das Fenster Normal öffnen lasse und dann in die TNA schiebe, wird das Fenster Kurz angezeigt und verschwindet dann ("Popt kurz auf")

Landet es direkt in der TNA und soll dann automatisch als normale Form angezeigt werden, klappt es nicht - weder bei OnCreate noch OnActivate
(Fehlermeldung "Zugriffsverletzung" - Darf dort den Fensterstatus nicht ändern)

Derzeitiger Workaround:
In der DPR hab ich

Delphi-Quellcode:

Application.ShowMainForm:=false

eingetragen.
Soll das Programm dann nicht in die TNA, wird bei OnActivate ein Timer (1 Sec) gestartet, der dann die Form über

Delphi-Quellcode:

application.MainForm.Visible:=true;

wieder Sichtbar macht.

Gehts auch etwas eleganter??

Das Umschalten während der Anwendung klappt Problemlos. Es ist nur die Auswahl beim Starten die mir sorgen macht.

Ich benutze hierzu XE2 mit der TrayIcon Komponente.

Gruß

Torsten