Quick Tips: Aplicação em tela cheia no Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (4)  (0)

Nesta quick tip veremos como colocarmos nossa aplicação Delphi para aparecer em tela cheia.

Quick Tips: Aplicação em tela cheia no Delphi

 

Nesta quick tip veremos como colocarmos nossa aplicação Delphi para aparecer em tela cheia.

 

As vezes temos a necessidade de colocarmos nossa aplicação em tela cheia logo que a mesma é iniciada, sem exibir sequer a barra de tarefas do Windows, isso é muito comum em sistema de PDV(Ponto de venda) por exemplo. Veremos abaixo qual o código necessário para conseguirmos isso em nossas aplicações Delphi.

 

Precisamos inserir o seguinte código no evento formcreate do formulário principal da aplicação.

 

procedure TForm1.FormCreate(Sender: TObject);

var

  HTaskbar: HWND;

  OldVal: LongInt;

begin

  // Encontra a janela da aplicação na taskbar

  HTaskBar := FindWindow('Shell_TrayWnd', nil);

  // Desabilita a taskBar

  EnableWindow(HTaskBar, False);

  // Oculta a TaskBar

  ShowWindow(HTaskbar, SW_HIDE);

  //Tira a borda do formulário

  Form1.BorderStyle := bsNone;

  //Configura o formulário para ficar sempre a frente de outras janelas

  Form1.FormStyle := fsStayOnTop;

  //Altera a pomsição do form, para "colar" à esquerda e ao topo

  Form1.Left := 0;

  Form1.Top  := 0;

  //Altera o tamanho do formulário para o tamanho da tela

  Form1.Height := Screen.Height;

  Form1.Width := Screen.Width;

end;

 

Após o uso da aplicação, temos que voltar as configurações da taskbar do Windows, para isso usamos o código abaixo no evento OnClose do formulário principal da aplicação.

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var  HTaskbar: HWND;

  OldVal: LongInt;

begin

  //Encontra a janela da aplicação na TaskBar

  HTaskBar := FindWindow('Shell_TrayWnd', nil);

  //habilita novamente a 'taskbar

  EnableWindow(HTaskBar, True);

  //Exibe novamente a taskbar

  ShowWindow(HTaskbar, SW_SHOW);

end;

 

É isso aí pessoal, vou ficando por aqui.

Fiquem a vontade para criticar, tirar dúvidas e sugerir novos temas.
Abraço.

Ricardo Coelho

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?