Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>A Google search turned up the following, additional methods:</p> <p>(though I think I'd try Roddy's method first)</p> <h2><a href="http://delphi.about.com/cs/adptips2000/a/bltip0600_2.htm" rel="noreferrer">Manually fill the screen</a> (from: About Delphi)</h2> <pre><code>procedure TSomeForm.FormShow(Sender: TObject) ; var r : TRect; begin Borderstyle := bsNone; SystemParametersInfo (SPI_GETWORKAREA, 0, @r,0) ; SetBounds (r.Left, r.Top, r.Right-r.Left, r.Bottom-r.Top) ; end; </code></pre> <h2>Variation on a theme by Roddy</h2> <pre><code>FormStyle := fsStayOnTop; BorderStyle := bsNone; Left := 0; Top := 0; Width := Screen.Width; Height := Screen.Height; </code></pre> <h2><a href="http://groups.google.nl/group/borland.public.delphi.objectpascal/msg/1cc7e07b0e80150e?hl=en" rel="noreferrer">The WinAPI way</a> (by Peter Below from TeamB)</h2> <pre><code>private // in form declaration Procedure WMGetMinMaxInfo(Var msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO; Procedure TForm1.WMGetMinMaxInfo(Var msg: TWMGetMinMaxInfo); Begin inherited; With msg.MinMaxInfo^.ptMaxTrackSize Do Begin X := GetDeviceCaps( Canvas.handle, HORZRES ) + (Width - ClientWidth); Y := GetDeviceCaps( Canvas.handle, VERTRES ) + (Height - ClientHeight ); End; End; procedure TForm1.Button2Click(Sender: TObject); Const Rect: TRect = (Left:0; Top:0; Right:0; Bottom:0); FullScreen: Boolean = False; begin FullScreen := not FullScreen; If FullScreen Then Begin Rect := BoundsRect; SetBounds( Left - ClientOrigin.X, Top - ClientOrigin.Y, GetDeviceCaps( Canvas.handle, HORZRES ) + (Width - ClientWidth), GetDeviceCaps( Canvas.handle, VERTRES ) + (Height - ClientHeight )); // Label2.caption := IntToStr(GetDeviceCaps( Canvas.handle, VERTRES )); End Else BoundsRect := Rect; end; </code></pre>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. This table or related slice is empty.
    2. VO
      singulars
      1. This table or related slice is empty.
    3. VO
      singulars
      1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload