minimizar totalmente.

Delphi

15/06/2007

Boa Noite,

Eu chamo um form, utilizando o showmodal.
Quando minimizo ele fica sobre a barra do windows.

Gostaria de minimizar todo aplicativo quando minimizar um determinado form.


Unix

Unix

Curtidas 0

Respostas

Martins

Martins

15/06/2007

Escreva o código abaixo.

Application.Minimize;


Bons códigos!


GOSTEI 0
Unix

Unix

15/06/2007

Obrigado pela resposta, mas qual é o evento que eu devo chamar para utilizar este comando, no form filho.


GOSTEI 0
Unix

Unix

15/06/2007

Pesquisei no google e encontrei a seguinte solução...

em private

  private
    { Private declarations }
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;


logo abaixo

procedure Tform.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType = SC_MINIMIZE) then
    Application.Minimize
  else inherited;
end;


obs: Se alguém souber outra forma de fazer isso, postem.

Muito obrigado.


GOSTEI 0
Martins

Martins

15/06/2007

Essa solução aí é funcional, mas veja se vc tem controle sobre os demais botões, como maximizar, restaurar.

Bons códigos!!!


GOSTEI 0
POSTAR