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