Form auf voller Bildschirmbreite anzeigen

[stahli]

... da muss man dann aber auch auf Left achten usw.

Das ganze Konzept gehört m.E. überarbeitet. Aber das müsste natürlich MS machen. So lange kann man das nur irgendwie hinwurschteln, dass es für den eigenen Fall einigermaßen passt.

[Theseus]

Vielen Dank für die Kommentare!

Ich werde versuchen, mit ClientWidth und Verschiebung zu basteln, nach Prüfung ob Win10 genutzt wird...

[Michael II]

Hilft da nicht GetSystemMetrics(SM_CXSIZEFRAME); also für die Breite etwa so:

Delphi-Quellcode:

    dx := Winapi.Windows.GetSystemMetrics(SM_CXSIZEFRAME);
    left := screen.WorkAreaLeft - dx;
    width := screen.WorkAreaWidth + 2*dx;

oder die Höhe:

Delphi-Quellcode:

    dy := Winapi.Windows.GetSystemMetrics(SM_CYSIZEFRAME);
    top := screen.WorkAreaTop - dy;
    height := screen.WorkAreaHeight + 2*dy;

[samso]

Probiere es mal so:

Delphi-Quellcode:

  if IsCompositionActive then 
  begin
    Form.Left := Form.BoundsRect.Left - Form.ClientOrigin.X;
    Form.ClientWidth := Screen.Width;
  end
  else
  begin
    Form.Left := 0;
    Form.With := Screen.Width;
  end