The Delphi program displays in full screen without a title bar, covering the entire screen. This is useful when making industrial computers or screensavers, so write it 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;