delphi 프로그램 전체 화면 에 제목 표시 줄 없 이 전체 화면 을 덮어 씁 니 다(화면 보호 기 에 적합)

delphi 프로그램 전체 화면 에 제목 표시 줄 이 없 으 며 전체 화면 을 덮어 씁 니 다.이것 은 제어 장치 나 화면 보호 기 를 할 때 유용 하기 때문에 기록 하 십시오

 
procedure TMainFrm.FormCreate(Sender: TObject); 
begin 
with MainFrm do begin 
{ Position form } 
Top := 0 ; 
Left := 0 ; 
{ Go full screen} 
BorderStyle := bsNone ; 
WindowState := wsmaximized; 
ClientWidth := Screen.Width ; 
ClientHeight := Screen.Height; 
Refresh; 
SetForegroundWindow(Handle) ; 
SetActiveWindow(Application.Handle) ; 
end; 
end;