cobrir 100� a tela do windows

Question

ol� pessoal eu esqueci o procedimento de criar um form que ocupe totalmente a tela at� mesmo a barra do windows...

como � usado em telas de frende de caixa onde o usu�rio n�o tem acesso algum ao windows

Rjun · Answer

Defina a propriedade WINDOWSTATE para wsMaximized e a propriedade BORDERSTYLE para bsNone....

Crcam · Answer

ehehehehe eu j� fiz isso essa parte � basico mas o que eu quero sabe � a barra de ferramentas ( relogio icones iniciar etc....)...

Martins · Answer

[quote:6b0688c7ed=�CRCAMPOS�]ehehehehe eu j� fiz isso essa parte � basico mas o que eu quero sabe � a barra de ferramentas ( relogio icones iniciar etc....)[/quote:6b0688c7ed]Campos, vc vai conseguir o q deseja usando esse c�digo.[code:1:6b0688c7ed]// Esconde a barra de tarefas do Windows// Coloque esse c�digo no OnShow do Form.ShowWindow(FindWindow(�Shell_TrayWnd�,nil), SW_HIDE) ;// Retorna a barra de tarefas do Windows// Coloque esse c�digo no OnClose do Form.ShowWindow(FindWindow(�Shell_TrayWnd�,nil), SW_Normal) ;[/code:1:6b0688c7ed]Espero q seja isso q vc est� procurando, retorne aqui o resultado.Boa sorte....

Martins · Answer

[quote:a013c045ec=�Rjun�]Defina a propriedade WINDOWSTATE para wsMaximized e a propriedade BORDERSTYLE para bsNone.[/quote:a013c045ec]Essa dica � perfeitamente funcional....

Crcam · Answer

� o caminho � quase esse mas note que mesmo escondendo a barra o local dela fica l� ou seja o form n�o ocupa 100� a tela p/ vc ter uma ideia legal do que tenho de fazer pegue como exemplo o sistema do supermercado extra a tela do programa ocupa 100� a tela

Campos faz um teste com a dica do RJun em um form Novo sem usar o

[b:e6d6ad9163]AnimateWindow(form1.Handle,2000,AW_CENTER);[/b:e6d6ad9163]

e veja o resultado.

Martins · Answer

[quote:e6d6ad9163=�CRCAMPOS�]� o caminho � quase esse mas note que mesmo escondendo a barra o local dela fica l� ou seja o form n�o ocupa 100� a telap/ vc ter uma ideia legal do que tenho de fazer pegue como exemplo o sistema do supermercado extra a tela do programa ocupa 100� a tela[/quote:e6d6ad9163]Campos faz um teste com a dica do RJun em um form Novo sem usar o [b:e6d6ad9163]AnimateWindow(form1.Handle,2000,AW_CENTER);[/b:e6d6ad9163]e veja o resultado....

Ipc$ · Answer

Se n�o der certo, tente com SetWindowPos[code:1:d79062ef60]  WindowState := wsNormal;  SetWindowPos(Handle, HWND_TopMost, 0, 0, Screen.Width, Screen.Height, SWP_ShowWindow);[/code:1:d79062ef60]...

Crcam · Answer

pessoal infelizmente ele n�o sobrep�e a barra!!!!!...

Kroki · Answer

Pelo oque vc disse sua �rea de trabalho foi redimensionada e isso n�o � muito comum.
Tente isso no OnCreate;
...
var
R:TRect;
begin
R.Left :=0;
R.Top :=0;
R.Right :=Screen.Width;
R.Bottom :=Screen.Height;
SystemParametersinfo(SPI_SETWORKAREA,0,@R,SPIF_SENDCHANGE );
...
Alguma coisa ta setando sua �rea de trabalho...

Paullsoftware · Answer

as dicas do amigos martins, ipc$, Rjun todas funcionaram perfeitamente comigo, mais...

no OnCreate tente algo assim:
levando em conta que...
borderStyle = bsNone;
Position = poScreenCenter;

�
  Width  := Screen.Height;
  Height := Screen.Width;
  Top    := 0;
  Left   := 0;
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);

acho que assim n�o tem como n�o funcionar :wink:

Crcam · Answer

n�o sei se por ser windows 2000 pro mas tive de fazer uns ajustes diretamente no codigo...
onde resolveu o problema foi nessa linha � Align := alLeft; �

�
// tratamento sobrepor 100� tela
procedure TForm1.FormCreate(Sender: TObject);

begin
  Width       := Screen.Height;
  Height      := Screen.Width;
  Top         := 0;
  Left        := 0;
  Align       := alLeft;
  WindowState := wsMaximized;
  Position    := poDesktopCenter;

SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;
// fim tratamento sobrepor 100� tela

mas enfim deu certo! agrade�o a aten��o de todos que colaboraram

Crcam · Answer

n�o sei se por ser windows 2000 pro mas tive de fazer uns ajustes diretamente no codigo...
onde resolveu o problema foi nessa linha � Align := alLeft; �

�
// tratamento sobrepor 100� tela
procedure TForm1.FormCreate(Sender: TObject);

begin
  Width       := Screen.Height;
  Height      := Screen.Width;
  Top         := 0;
  Left        := 0;
  Align       := alLeft;
  WindowState := wsMaximized;
  Position    := poDesktopCenter;

SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;
// fim tratamento sobrepor 100� tela

mas enfim deu certo! agrade�o a aten��o de todos que colaboraram

F�rum cobrir 100� a tela do windows #319875