Form.WindowState := wsMaximized mit/ohne Maximize-Button

[r_kerber]

Folgendes Problem: Ich maximiere ein Fenster zur Laufzeit mit
  Form1.WindowsState := wsMaximize; Wenn in diesem Fenster auch ein Maximize-Button (BorderIcons.biMaximize ist true) ist, dann wird es korrekt angezeigt, also unterer Abschluß der Form über der Windows-Taskbar. Laß ich diesen Button weg, dann wird das Fenster zu groß und ich muß die Taskbar ausblenden, wenn ich alles sehen will. Wie schaffe ich es, daß das Fenster den gesamten Bildschirmbereich oberhalb der Taskbar einnimmt, es aber keine Möglichkeit, das Maximieren zu beenden?

[Luckie]

Setzt du die Eigenschaft zur Designzeit und wird dann dein Programm gestartet, weiß das Fenster nicht, wie hoch die Taskbar ist und kann diese nicht berücksichtigen. Wird es maximiert, wenn es schon läuft, weiß es wie hoch die Taskbar ist und kann diese berücksichtigen.

Lösung:
Setzte die Eigenschaft im OnShow Ereignis:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  WindowState := wsMaximized;
end;

Dann funktioniert es bei mir.

[r_kerber]

Hab's sowohl im OnFormShow als auch im OnActivate probiert. Es geht nicht ohne Maximize-Button!

[Meta777]

Hallo,

ich hab grad das selbe Problem
Hat jmd. schon ne Lösung oder nen Workaround?

Gottes Segen

[Sharky]

Zitat von r_kerber:

Hab's sowohl im OnFormShow als auch im OnActivate probiert. Es geht nicht ohne Maximize-Button!

Hai Rainer,

kann ich bei mir nicht bestätigen. Das Fenster bedeckt exakt den Desktop ohne die Taskleiste.

[r_kerber]

Zitat von Sharky:

kann ich bei mir nicht bestätigen. Das Fenster bedeckt exakt den Desktop ohne die Taskleiste.

Und wann maximierst Du?

[Sharky]

Zitat von r_kerber:

...Und wann maximierst Du?

Im OnShow und OnActive versucht. In beiden Fällen das gleiche bei mir.
Du meinst doch so wie im Anhang oder?

[NicoDE]

Zitat von Sharky:

Du meinst doch so wie im Anhang oder?

Sieht eher so aus, als ob die Form hinter der Taskbar ist...

Workaround für primären Monitor...

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);

{$IFDEF WIN32}
var
  WorkArea: TRect;
{$ENDIF}
begin
{$IFDEF WIN32}
  if SystemParametersInfo(SPI_GETWORKAREA, 0, Addr(WorkArea), 0) then
    with WorkArea do
      SetBounds(Left, Top, Right - Left, Bottom - Top)
  else
{$ENDIF}
    // fallback
    WindowState := wsMaximized;
end;

...für mehrere Monitore gibt's sicher auch Lösungen (hab nur nicht die VCL-Referenz zur Hand "Wie komme ich an die Bildschirm-Koordinaten" *g*).

edit: lang lebe der tippfäler...

[r_kerber]

Zitat von Sharky:

In beiden Fällen das gleiche bei mir.
Du meinst doch so wie im Anhang oder?

Dann füge mal eine TStatusBar ein und gucke, ob du diese noch siehts!

[Sharky]

Zitat von r_kerber:

Dann füge mal eine TStatusBar ein und gucke, ob du diese noch siehts!

Platsch. Da bin ich ja voll auf die Nase gefallen Sorry.