Windows Taskbar Höhe / Fenster (Forms) exakt auf dem Desktop anordnen

[PeterS]

Windows Taskbar Höhe / Fenster (Forms) exakt auf dem Desktop anordnen

Moin,

das Thema "Windows Taskbar Höhe" ist eng verknüpft mit der Frage,
wie kann ich ein Fenster exakt auf dem Desktop positionieren.
Ohne daß der untere Rand des Fensters von der Windows Taskbar verdeckt wird.
Oder daß das Fenster noch eine Lücke läßt zur Windows Taskbar.

Für mich ist das wichtig weil eins meiner Programm zwei Child-Fenster hat,
die ich übereinander auf den Desktop positioniere, wenn man sie öffnet.
Da beide Fenster ein TAChart enthalten, möchte ich den maximalen Platz auf dem Desktop nutzen.

Mir war lange nicht ganz klar daß + warum die Variablen

Code: Alles auswählen

Self.Height
Self.ClientHeight

eines Fensters denselben Wert annehmen. Muss ich so hinnehmen, also muss ein "Workaround" her.
Die reale Höhe eines Fensters auf dem Desktop ist um etliche Pixel höher/größer als Self.Height.

Daher habe ich mir das ganze jetzt mal genau angeschaut und ein TestProjekt "RealWindowHeight" gebaut:
.

RealWindowHeight 01.png (164.6 KiB) 299 mal betrachtet

[PeterS]

Hier im Anhang ist mein Testprojekt.
Funktioniert mit Scaling 125% und mit normalen + bsDialog Fenstern.

[PeterS]

Ärgerlich ist, daß bei 125%-Skalierung in Windows
die linken Fenster etliche Pixel weiter rechts stehen auf dem Desktop,
obwohl ich "Self.Left:= 0" vorgebe ..

Das scheint ein Windows-11-Problem zu sein.

[PeterS]

Um die echte Höhe eines Fensters zu erreichen, benutze ich die folgende Funktion.
TargetHeight ist dabei die Höhe, die das Fenster tatsächlich haben soll.
Das Ergebnis der Funktion weise ich dann Self.Height zu.

Code: Alles auswählen

function GetWindowHeightValue( TargetHeight:integer; Form:TForm):integer;
begin
  result:= TargetHeight
           -LCLIntf.GetSystemMetrics( SM_CYCAPTION);

  if Form.BorderStyle = bsDialog
    then result:= result -LCLIntf.GetSystemMetrics( SM_CYFIXEDFRAME)
    else result:= result -LCLIntf.GetSystemMetrics( SM_CYSIZEFRAME);

  if assigned( Form.Menu)
    then result:= result -LCLIntf.GetSystemMetrics( SM_CYMENU);
end;

Da fehlen aber noch ein paar ungetestete "Form.BorderStyle" Varianten ..
Hat sich da schonmal jemand durchgekämpft ?

[Soner]

Screen.WorkAreaHeight und Screen.WorkAreaWidth is doch was du möchtest.
Wenn du dein Fenster übereinander haben möchtest, dann muss du einfach das tun:

Code: Alles auswählen

Fenster1.Top:=0; 
Fenster1.Height:=Screen.WorkAreaHeight div 2;
Fenster2.Top:=(Screen.WorkAreaHeight div 2)+1
Fenster2.Height:=Screen.WorkAreaHeight div 2;

Ich habe kontrolliert, Screen.WorkAreaHeight hat anderen Wert je nach Skalierung und ob Taskbar automatisch unsichtbar ist, was bei mir der Fall ist.

[PeterS]

Hast Du Deinen Code getestet ?

[Soner]

Hast Du Deinen Code getestet ?

Ja, sonst hätte ich es nicht gepostet.

[PeterS]

Hast Du Deinen Code getestet ?

Ja, sonst hätte ich es nicht gepostet.

Wie verhält er sich wenn Du
- ein HauptMenü in die Form einbaust ?
- Scaling in Windows änderst ? (=> Anzeigeeinstellungen)
- FormStyle änderst ?

[PeterS]

Ich habe mit Deinem Code zwei weitere Fenster eingebaut.
Sieht nicht gut aus.
.

FormNew.png (185.61 KiB) 250 mal betrachtet

[Soner]

Ich habe oben geschrieben, nach dem ich Screen.WorkAreaHeight nach verschiedenen Situationen betrachtet habe (mit lazarus-programm) und davon ausging, dass es stimmen muss. Jetzt habe ich ein Beispiel gebaut und festgestellt dass es in LCL ein Fehler gibt. Die Titelzeile vom 2.Form wird vom 1. überdeckt und die linke Seite ist nicht richtig. Bei Skalierung noch deutlicher.

[Soner]

Ich habe mit Deinem Code zwei weitere Fenster eingebaut.
Sieht nicht gut aus.
.
FormNew.png

FormNews sehen genauso wie bei mein Beispiel aus. Wie ich oben erwähnt habe, ist das LCL-Fehler, irgendjemand hat "ClientHeight" genommen anstatt "Height". Wir müssen jetzt Fehler suchen und korrigieren.

[PeterS]

Wie ich oben erwähnt habe, ist das LCL-Fehler, irgendjemand hat "ClientHeight" genommen anstatt "Height".
Wir müssen jetzt Fehler suchen und korrigieren.

Okay, damit hatte ich nicht gerechnet, also daß in der LCL ein Fehler steckt.
Vielen Dank für die Info !

Ich habe kontrolliert, Screen.WorkAreaHeight hat anderen Wert je nach Skalierung
und ob Taskbar automatisch unsichtbar ist, was bei mir der Fall ist.

Ja, das macht einen Unterschied. Ich mag es nicht wenn sich die Taskleiste automatisch ausblendet.
Bei mir ist die immer sichtbar.

Ein völlig anderes Thema ist, daß die MainForm in meinem Beispiel nicht "to Front" kommt.
Die sekundären Fenster liegen immer über der MainForm.
Da habe ich derzeit keine Ahnung, warum das passiert.
.

MainForm not on Top when active.png (103.63 KiB) 213 mal betrachtet

[Soner]

Ich habe mir das nochmal angeschaut, Height setzt ClientHeight, das sollte bei Formulare Titelzeile auch berücksichtigen, das ist ein Fehler das sollte man vielleicht melden.
Man kann MoveWindow von WinAPI bei OnShow verwenden. Windows 11 positioniert die Formulare nicht richtig, man hat auf der linken Seite und zwischen Formularen kleine Lücke, bei Windows 7 nicht.