Aplicação oculpando toda a tela?

Delphi

16/07/2003

Como fazer com que minha aplicação oculpe toda a tela, fique por cima inclusive da barra de ferramentas do windows?


Flaviolrf

Flaviolrf

Curtidas 0

Respostas

Skywalker

Skywalker

16/07/2003

Ola tudo bem?

Tente colocar a propriedade windowstate do form principal como wsmaximized

ate +!


GOSTEI 0
Flaviolrf

Flaviolrf

16/07/2003

Ola tudo bem? Tente colocar a propriedade windowstate do form principal como wsmaximized ate +!


Não adianta, a barra de ferramentas do windows ainda continua a baixo da aplicação!


GOSTEI 0
Cabreu.jr

Cabreu.jr

16/07/2003

no evento onshow do form coloque:

top:= 0;
left := 0;
width := screen.width;
height := screen.height;


GOSTEI 0
Flaviolrf

Flaviolrf

16/07/2003

no evento onshow do form coloque: top:= 0; left := 0; width := screen.width; height := screen.height;


Ainda não deu certo, a barra de ferramentas do windows continua a ficar(aparecer) em baixo da aplicação.


GOSTEI 0
R3yz0r

R3yz0r

16/07/2003

faz o seguinte quandu for nescessario que a aplicação ocupe a tela inteira
insira isso:

[b:0161849611]ShowWindow(FindWindow(´Shell_TrayWnd´, nil), sw_hide);[/b:0161849611]

ex:

[b:0161849611]procedure TForm1.FormCreate(Sender: TObject);
begin
ShowWindow(FindWindow(´Shell_TrayWnd´, nil), sw_hide);
end;[/b:0161849611]

e quando for nescessario normalizar a tela insira isso:

[b:0161849611]ShowWindow(FindWindow(´Shell_TrayWnd´, nil), sw_shownormal);[/b:0161849611]

ex:

[b:0161849611]procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(FindWindow(´Shell_TrayWnd´, nil), sw_shownormal);
end;[/b:0161849611]

Falow e boas compilações!!! :)


GOSTEI 0
POSTAR