Delphi Program full screen display without title bar covering the entire Screen

Delphi is simple to implement full screen display of programs without a title bar, covering the entire screen. This is useful in industrial computer or screen saver. The specific code is as follows. If you are interested, refer

The full screen display of the delphi Program has no title bar and covers the entire screen. This is useful for industrial computer or screen saver.

Copy codeThe Code is as follows:

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;