Minimizar Aplicação

Delphi

06/09/2003

Olá pessoal,

Tenho 2 forms. O principal chama o segundo através do ShowModal.
Acontece que quando minimizo o segundo form, o form principal fica na tela atrapalhando o acesso à area de trabalho do windows.
Gostaria de saber se há algum evento (do tipo como o OnClose) do form em que possa por um comando como ´Application.Minimize´ quando a janela do segundo form for minimizada para que a aplicação toda seja minimizada ???
Ou... Alguém tiver alguma outra solução ???


Rubensgalvanijr

Rubensgalvanijr

Curtidas 0

Respostas

Aristodemo

Aristodemo

06/09/2003

[b:56b3588150]private[/b:56b3588150]
...
procedure WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) then ...
end;

Espero ter ajudado.

Abraços...


GOSTEI 0
Rubensgalvanijr

Rubensgalvanijr

06/09/2003

Aristodemo, obrigado pela atenção...
mas não funcionou (ou não soube usar corretamente).
se alguém tiver outro comando ou solução, por favor me enviem.


GOSTEI 0
Rubensgalvanijr

Rubensgalvanijr

06/09/2003

Aristodemo, obrigado pela atenção... mas não funcionou (ou :!: eu :!: não soube usar corretamente). se alguém tiver outro comando ou solução, por favor me enviem.



GOSTEI 0
Rubensgalvanijr

Rubensgalvanijr

06/09/2003

Alguém tem outra idéia...
:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:


GOSTEI 0
Nigro

Nigro

06/09/2003

Não use ShowModal, use apenas Show


GOSTEI 0
Rubensgalvanijr

Rubensgalvanijr

06/09/2003

Obrigado pela opinião, mas tenho que usar Showmodal...
O usuário não pode ter acesso ao Form Principal quando o segundo estiver ativo...


GOSTEI 0
Cebikyn

Cebikyn

06/09/2003

Tente por o Application.Minimize no OnHide do seu form. Acho que funciona...


GOSTEI 0
Rubensgalvanijr

Rubensgalvanijr

06/09/2003

infelizmente não funcionou...
tá dificil de solucionar esse problema.
apesar de não ser tão importante, já tá me dando dor de cabeça.
alguém mais tem alguma ideia :?: :?: :?:


GOSTEI 0
Cebikyn

Cebikyn

06/09/2003

Testei a sugestão do [b:a3623bb10e]Aristodemo[/b:a3623bb10e] e funcionou:

Na seção [b:a3623bb10e]private[/b:a3623bb10e], do segundo [i:a3623bb10e]form[/i:a3623bb10e], declare:

type
  TForm2 = class(TForm)
  ...
  private
    // Declare isto:
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;


Depois, em [b:a3623bb10e]implementation[/b:a3623bb10e], implemente:

procedure TForm2.WMSysCommand(var Msg: TWMSysCommand);
begin
  case Msg.CmdType of
    SC_MINIMIZE: Application.Minimize;
  else
    inherited;
  end;
end;



GOSTEI 0
Sistemald

Sistemald

06/09/2003

Para Abrir o form2 use o seguinte:

[b:df102e11dc]form1.visible:= False;
form2.showmodal;[/b:df102e11dc]

No evento [b:df102e11dc]OnClose[/b:df102e11dc] do Form2 use o seguinte:

[b:df102e11dc]form1.visible:= True;[/b:df102e11dc]


GOSTEI 0
Dacunha

Dacunha

06/09/2003

tem umas ferramentas que minimizam o aplicativo, acho que seria o ideal para vc.
qualquer duvida te mando por e-mail, vc instala e usa.
dacunha2@ig.com.br


GOSTEI 0
Rubensgalvanijr

Rubensgalvanijr

06/09/2003

Obrigado pessoal,

agora meu problema esta resolvido.
[b:ce594fea7a]Aristodemo[/b:ce594fea7a], peço desculpas. sou iniciante e não entendi sua explicação direito.
[b:ce594fea7a]cebikyn[/b:ce594fea7a], valeu pela explicação. agora o código funcionou corretamente.
[b:ce594fea7a]sistemald[/b:ce594fea7a], sua dica tb funciona perfeitamente.
agradeço a todos pela cooperação.


GOSTEI 0
Nildo

Nildo

06/09/2003

Tem um tal de Application.onMinimize.
Você pode usar ele.


GOSTEI 0
POSTAR