O programa Delphi é exibido em tela cheia sem barra de título cobrindo toda a tela (adequado para protetores de tela)

O programa Delphi é exibido em tela inteira sem barra de título, cobrindo a tela inteira. Isso é útil ao criar computadores industriais ou protetores de tela, então anote.

Copie o código do código da seguinte forma:

procedimento TMainFrm.FormCreate(Remetente: TObject);

começar

com MainFrm comece

{Formulário de posição}

Superior := 0 ;

Esquerda:= 0;

{Ir para tela cheia}

BorderStyle := bsNone ;

WindowState := wsmaximizado;

LarguraDoCliente := Tela.Largura ;

ClientHeight := Tela.Height;

Atualizar;

SetForegroundWindow(Handle);

SetActiveWindow(Application.Handle);

fim;

fim;