Le programme Delphi s'affiche en plein écran sans barre de titre couvrant tout l'écran (adapté aux économiseurs d'écran)

Le programme Delphi s'affiche en plein écran sans barre de titre, couvrant tout l'écran. Ceci est utile lors de la création d'ordinateurs industriels ou d'économiseurs d'écran, alors notez-le.

Copiez le code comme suit :

procédure TMainFrm.FormCreate(Expéditeur : TObject);

commencer

avec MainFrm, commencez

{Formulaire de poste}

Haut := 0 ;

Gauche := 0 ;

{Passer en plein écran}

BorderStyle := bsAucun ;

WindowState := wsmaximized;

ClientWidth := Screen.Width ;

ClientHeight := Screen.Height;

Rafraîchir;

SetForegroundWindow(Poignée);

SetActiveWindow(Application.Handle);

fin;

fin;