Minimizar forms quando uso showmodal...
22/03/2006
0
Olá, pessoal...
Tenho uma aplicação que possui o Form Principal, onde chamo o Form de Associados, usando showmodal. No Form de Associados tenho um botão que chama um Form de Pesquisa, onde também uso show modal...
O meu problema é o seguinte: quando minimizo a tela de Pesquisa, quero que todas as outras telas minimizem juntamente(a de Associados e a Principal, que estão por trás da tela de Pesquisa), o que hoje não está acontecendo.
Alguém sabe o que devo fazer para que todo o sistema minimize juntamente?
Um abraço...
Susana
Tenho uma aplicação que possui o Form Principal, onde chamo o Form de Associados, usando showmodal. No Form de Associados tenho um botão que chama um Form de Pesquisa, onde também uso show modal...
O meu problema é o seguinte: quando minimizo a tela de Pesquisa, quero que todas as outras telas minimizem juntamente(a de Associados e a Principal, que estão por trás da tela de Pesquisa), o que hoje não está acontecendo.
Alguém sabe o que devo fazer para que todo o sistema minimize juntamente?
Um abraço...
Susana
Susi
Curtir tópico
+ 0
Responder
Posts
22/03/2006
Paullsoftware
Chame o
quando minimizar esse form... não testei aqui, estou sem Delphi, mais deve funcionar :wink:
Application.Minimize
Responder
22/03/2006
Susi
Olá Paull,
Sou novata ainda...
Vc poderia me informar aonde e como vou saber que este form está sendo minimizado?
No aguardo...
Susana
:? :? :?
Sou novata ainda...
Vc poderia me informar aonde e como vou saber que este form está sendo minimizado?
No aguardo...
Susana
:? :? :?
Responder
27/03/2006
Susi
Olá, pessoal,
A quem possa interessar, consegui resolver da seguinte forma:
Na declaração [color=red:73de63b9aa]private [/color:73de63b9aa]do form coloco:
[color=blue:73de63b9aa]procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;[/color:73de63b9aa]
Depois, crio a procedure:
[color=blue:73de63b9aa]procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) then application.Minimize
else inherited;
end; [/color:73de63b9aa]
Minimiza todos os forms que tiverem abertos...
Susana
A quem possa interessar, consegui resolver da seguinte forma:
Na declaração [color=red:73de63b9aa]private [/color:73de63b9aa]do form coloco:
[color=blue:73de63b9aa]procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;[/color:73de63b9aa]
Depois, crio a procedure:
[color=blue:73de63b9aa]procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) then application.Minimize
else inherited;
end; [/color:73de63b9aa]
Minimiza todos os forms que tiverem abertos...
Susana
Responder
Clique aqui para fazer login e interagir na Comunidade :)
