Barra de Tarefas

Delphi

02/02/2004

Como posso esconder a barra de tarefas quando a aplicacao estiver ativada ou como posso acionar o ocultar automaticamente do windows.
Tem como fazer isso pelo Delphi 6


Salupe

Salupe

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

02/02/2004

Tente assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
   // Ocultar.......
   ShowWindow(FindWindow(´Shell_TrayWnd´, nil), SW_HIDE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   //Mostrar.....
   ShowWindow(FindWindow(´Shell_TrayWnd´, nil), SW_SHOWNORMAL);
end;



GOSTEI 0
Salupe

Salupe

02/02/2004

Obrigado pela ajuda.

Achei uma parecida, mas que já fica em uma function.
O problema é que se o usuário fizer um ALT + TAB, por exemplo ele vai continuar com a barra de tarefas escondida, assim como a tecla que abre o botao iniciar do windows.
Não quero desabilitar essas teclas, mas preciso conseguir que se o programa perder o foco eu possa habilitar a Barra de Tarefas.


GOSTEI 0
Fabio.hc

Fabio.hc

02/02/2004

Vc pode pegar o alt + tab aqui:

procedure TForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
   ShowWindow(FindWindow(´Shell_TrayWnd´, nil), SW_SHOWNORMAL);
end;


Só falta agora quando pressionar alt + tab e voltar para o programa com a barra de tarefa oculta.


GOSTEI 0
Salupe

Salupe

02/02/2004

Colocando no short cut ele Mostra a Barra a cada tecla digitada, tem outra forma


GOSTEI 0
Fabio.hc

Fabio.hc

02/02/2004

Aqui testa se foi pressionado a tecla Alt.

procedure TForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean); 
begin 
   if (Msg.CharCode = VK_MENU) then
      ShowWindow(FindWindow(´Shell_TrayWnd´, nil), SW_SHOWNORMAL); 
end;


Mas nâo é a melhor souloção.


GOSTEI 0
Salupe

Salupe

02/02/2004

Não existe alguma forma de testar a tecla que abre o botao iniciar e o ctrl + esc


GOSTEI 0
Luciano França

Luciano França

02/02/2004

me mande um email que lhe mando um componente otimo para ocultar
a barra de tarefas do windows pela API, que vai lhe resolver todos o seu problemas.



mendonca@astornet.com.br


um forte abraco.
Luciano França.


GOSTEI 0
POSTAR