Application.MainFormOnTaskbar wird ignoriert (10.4)

[himitsu]

Zitat:

WS_EX_TOOLWINDOW

Ahhhhhhhhh, der blöde Copy&Paste-AutoVervollständigung-BlindHinguck-Fehler
Ich schieb jetzt einfach Mal die Schukd auf Corona und Hitze.


Aber wenn selbst

Delphi-Quellcode:

Application.Initialize;
Application.MainFormOnTaskbar := False;
Application.CreateForm(TForm1, Form1);
Application.Run;

nicht funktioniert, dann kann der Fehler doch "hier" nicht bei mir liegen?

Siehe auch ghubi01, wo man im ScreenShot das schön sieht, dass da eben immer die MainForm angezeigt wird.
Aber OK, als Überschrift des AeroPeek ist zumindestens die Caption unterschiedlich, aber dennoch immer als Bild die Form.

Und wenn man den Start verzögert, dann ist bis zur Anzeige der MainForm weiterhin kein Button in der Taskleiste.
Aber genau das wollte ich ja eigentlich erreichen, dass so lange die Anwendung läuft, immer was in der Taskleiste ist, egal ob eine Form sichtbar ist, oder nicht.
(Zumindestens beim Starten und Beenden, bis die Anwendung fertig geladen wurde, bzw. bis sie komplett weg ist)


Langsam überkommt mich das Gefühl, es könnte eine "Verbesserung" im DesktopWindowManager vom Windows 10 sein.

[Sailor]

Keine Ahnung, ob das Dein Problem löst, ich mache das seit Olims Zeiten so wie hier beschrieben. Die Hauptanwendung startet eine untergeordnete Anwendung und blendet das Icon aus. Umgekehrt beim Verlassen der Nebenanwendung. Funktioniert auch unter W10, es gibt nur eine kurze Zeitspanne, in der 2 Icons zu sehen sind. Das kann aber auch an dem schwachbrüstigen Rechner liegen, der bei der Hitze keine richtige Lust hat.

Delphi-Quellcode:

  PROCEDURE HideTaskBarButton(CONST app:String; hide:Boolean);
   VAR
    h_wnd: HWnd;
    style: Integer;

   BEGIN
    h_wnd := FindWindow(NIL,PChar(app));
    IF h_wnd <> 0
     THEN BEGIN
           style := GetWindowLong(h_wnd,gwl_ExStyle)
                   OR
                    ws_Ex_ToolWindow;
           IF hide = True
            THEN BEGIN
                  style := style AND NOT(ws_Ex_AppWindow);
                  ShowWindow(h_wnd,sw_Hide)
                 END
            ELSE BEGIN
                  style := style AND ws_Ex_AppWindow;
                  ShowWindow(h_wnd,sw_Show)
                 END;
           SetWindowLong(h_wnd,gwl_ExStyle,style)
          END
   END; //OF PROCEDURE HideTaskBarButton

[himitsu]

Es liegt nicht am Windows 10.
Delphi 10.3 auf Windows 7, das Gleiche.
Titel ist hier der Application-Title, aber AeroPeek bleibt weiterhin die MainForm (wäre aber egal und eigentlich OK),
aber vor Ablauf der Pause ist weiterhin nichts zu sehn. (die ProcessMessages machen keinen Unterschied)

Delphi-Quellcode:

Application.Initialize;
Application.MainFormOnTaskbar := False;
//Application.ProcessMessages;
Sleep(10000);  // eigentlich Berechnung im TForm1.OnCreate, aber für den kurzen Test hier
//Application.ProcessMessages;
Application.CreateForm(TForm1, Form1);  // z.B. mit einem TMemo drauf, um den Unterschied zu sehen .... Vorschau/AeroPeek ohne Memo = Application und Mit = MainForm
Application.Run;

@Sailor: Über den Namen suchen ist etwas ungünstig, wenn das Programm mehrmals gestartet wurde,
aber in Application.Handle ist ja eh das gesuchte Fenster drin.

Delphi-Quellcode:

Application.Initialize;
Application.MainFormOnTaskbar := True;  // oder False

ShowWindow(Application.Handle, SW_SHOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
Application.ProcessMessages;

Sleep(10000);

Application.CreateForm(TForm1, Form1);

ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) and not WS_EX_APPWINDOW);

//Application.MainFormOnTaskbar := True;
Application.Run;

[Thomas Feichtner]

Hallo Himitsu,

hast du nun eine Lösung für dein Problem? Ich stehe auch vor dem selben Problem.

[jaenicke]

Ich mache das gerne so wie im Anhang (außer dass hier durch das Sleep das Fenster nicht reagiert natürlich, das ist nur hier für das Beispiel). MainFormOnTaskbar musste ich dafür noch nie auf False ändern.

SplashExample.png

[himitsu]

Damit würde ich aber die Fokussteuerung durcheinander bringen.

Es sollte eine "Komponente" werden, welche sich auch in der Delphi-IDE nutzen ließe (da die Entwickler einfach zu doof sind das nach Jahrzehnten selber zu fixen),
die einfach nur von "Application" den Taskbareintrag anzeigt, wenn durch irgendwas sonst kein Eintrag in der Taskleiste zu sehen ist,
also so wie eben "eigentlich" beim Application.MainFormOnTaskbar=False der Fall wäre.
z.B. während IDE-SplashScreen, Fehlerdialog und auch wenn das Programm beim Runterfahren hängen bleibt, nachdem die Mainform schon weg ist.

Aber am Programmablauf selber wollte ich garnichts ändern (z.B. neues Fenster erstellen)


Hatte zwar auch schon länger Delphi11 installiert, aber noch garnicht dau gekommen irgendwas zu machen.
War auch bissl blöd, seit ner Weile im Krankenhaus zu sitzen, mit ständigen Schmerzen vor aber auch noch nach der OP.

[jaenicke]

Der große Vorteil ist, dass das initialization wirklich am Anfang ausgeführt wird. Dadurch ist der Splashscreen quasi sofort da, selbst wenn danach noch viel vor dem begin des Projektquelltextes passieren sollte.