Aplicação oculpando toda a tela?
Como fazer com que minha aplicação oculpe toda a tela, fique por cima inclusive da barra de ferramentas do windows?
Flaviolrf
Curtidas 0
Respostas
Skywalker
16/07/2003
Ola tudo bem?
Tente colocar a propriedade windowstate do form principal como wsmaximized
ate +!
Tente colocar a propriedade windowstate do form principal como wsmaximized
ate +!
GOSTEI 0
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
16/07/2003
no evento onshow do form coloque:
top:= 0;
left := 0;
width := screen.width;
height := screen.height;
top:= 0;
left := 0;
width := screen.width;
height := screen.height;
GOSTEI 0
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
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!!! :)
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