Code:procedure TForm1.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;
Results 1 to 1 of 1
Thread: [DELPHI] - Full Screen Window
|
Click Here to Expand Forum to Full Width |