Delphi Program Full-screen display without title bar covering entire screen

Delphi Simple Implementation Program full-screen display no title bar, covering the entire screen, this in the industrial computer or screensavers useful, specific code as follows, interested friends can refer to ha

Delphi Program Full-screen display no title bar, covering the entire screen, this in the industrial computer or screensavers useful, so write down

Copy the code code 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

Delphi Program Full-screen display without title bar covering entire screen