全屏显示 delphi程序全屏显示无标题栏覆盖整个屏幕(适合屏保)

delphi 程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下 
复制代码 代码如下: 
proc[Www.aloNely.Com.Cn]edure 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;