[개발/delphi] 전체화면 만들기

[개발/delphi] 전체화면 만들기

Main form의 BorderStyle를 bsNone으로 설정한다. SPI_GETWORKAREA 값을 얻기 위해 SystemParametersInfo 메세지를 윈도우즈 실제 크기로 설정하기 위하여 SetBounds를 사용한다.


 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;