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

[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...