Windows Taskbar ausgeblendet, krieg den Streifen nicht weg

[MyRealName]

Hallo,

ich kämpfe gerade mit folgendem :
Ich blende die Taskbar von Windows im Fullscreen (WindowState := wsMaximized, BorderStyle=bsNone, fsStayOnTop) aus

Code:

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE);

und beim Beenden des Programs dann halt wieder ein.

Code:

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW);

Leider bleibt ein Streifen in der Höhe der Taskbar unter der Anwendung und denm kriege ich nicht weg. (Screenshot im Anhang)

Ich habe WindowsState verändert, Self.Height/Width neu gesetzt (welche übrigends die volle Bildschirmgröße angeben von 5120x1440, obwohl ich den Streifen ja sehe und das dürfte garkeine 1440 Höhe haben)...
Hat das schonmal jemand gehabt ? Gibts da eine Lösung ?

Danke schonmal

[Uwe Raabe]

Das ist etwas komplexer, da die Taskbar auch die Workarea des Desktop beschränkt. Versuch mal folgendes:

Delphi-Quellcode:

uses
  Winapi.ShellAPI;
var
  data: TAppBarData;
begin
  data.cbSize := Sizeof(data);
  data.hWnd := FindWindow('Shell_TrayWnd', nil);
  data.lParam := ABS_AUTOHIDE or ABS_ALWAYSONTOP;
  SHAppBarMessage(ABM_SETSTATE, data);
end;

Andersherum dann

Delphi-Quellcode:

data.lParam := ABS_ALWAYSONTOP;

[Der schöne Günther]

Verstehe ich nicht. Wozu das Herumspielen mit der Taskbar?

Im Formular-Designer

1. BorderStyle auf bsNone setzen
2. WindowState auf wsMaximized setzen
3. ???
4. Profit

[MyRealName]

Weil wenn Du das machst, bleibt die Taskbar dort. Und das will ich nicht. :)

[MyRealName]

Zitat:

Zitat von Uwe Raabe (Beitrag 1468293)

Das ist etwas komplexer, da die Taskbar auch die Workarea des Desktop beschränkt. Versuch mal folgendes:

Delphi-Quellcode:

uses
  Winapi.ShellAPI;
var
  data: TAppBarData;
begin
  data.cbSize := Sizeof(data);
  data.hWnd := FindWindow('Shell_TrayWnd', nil);
  data.lParam := ABS_AUTOHIDE or ABS_ALWAYSONTOP;
  SHAppBarMessage(ABM_SETSTATE, data);
end;

Andersherum dann

Delphi-Quellcode:

data.lParam := ABS_ALWAYSONTOP;

Das geht, vielen Dank!

[Der schöne Günther]

Zitat:

Zitat von MyRealName (Beitrag 1468296)

Weil wenn Du das machst, bleibt die Taskbar dort. Und das will ich nicht. :)

Ich mache seit Jahren fast nur Vollbildanwendungen und mehr als das tue ich auch nicht. Und ich habe keine Taskbar 🤷

[jaenicke]

Unsere Kassenanwendung läuft auch immer im Vollbildmodus. Und da spielen wir auch nicht an der Taskleiste herum. Das funktioniert einfach mit einem frisch installierten Windows ganz normal wie auch mein Vorredner schon schrieb.

[MyRealName]

Scheinbar mache ich dann irgendwas falsch. Weil meine Anwendung ist auch erst im Startstatus und hat noch ncihts weiter ausser 2 Knöpfe :) kann mal einer von Euch eine Anwendung basteln, die das bei Euch richtig macht, die ich dann hier kompilieren kann und sehen, was passiert und wenn es funktioniert, was dann anders ist ?
Weil meine Anwendung mit den oben beschriebenen properties will nicht über die Taskbar und ich will nciht, dass der User die sieht, während meine Anwendung läuft :)

[Uwe Raabe]

Ich kriege das hier auch ganz einfach hin, z.B. mit folgendem Code im FormCreate:

Delphi-Quellcode:

  BorderStyle := bsNone;
  WindowState := wsMaximized;

Win10 1909, Delphi 10.4, Neue Windows-VCL-Anwendung

[MyRealName]

Erstaunlich, eine neue Anwendung macht das richtig. Ich muss mal suchen, welches der Unterschied ist zwischen meiner schon angefangenen und dieser