Como Fechar Um Form Automaticamente Ao Abrir Outro?
07/04/2006
0
Estou com a seguinte dúvida:
Tenho um form principal(_MainForm) e os forms filhos(definidos em form Style para fsMDIChild): ou seja abrem dentro do form principal mas sempre ao abrir outro form Eu tenho que clicar no botão fechar. Como Fazer para que automaticamente feche o form aberto ao abrir outro quanto seleciono no menu do form principal?
Agradeço desde já a quem puder me ajudar
Tenho um form principal(_MainForm) e os forms filhos(definidos em form Style para fsMDIChild): ou seja abrem dentro do form principal mas sempre ao abrir outro form Eu tenho que clicar no botão fechar. Como Fazer para que automaticamente feche o form aberto ao abrir outro quanto seleciono no menu do form principal?
Agradeço desde já a quem puder me ajudar
Exvasp
Curtir tópico
+ 0
Responder
Posts
07/04/2006
Edilcimar
Coloque antes da chamada do form desejado
I : Word;
If MDIChildCount >= 1 then
Begin
With Form1 do
For I := MDIChildCount -1 downto 0 do
MDIChildren[I].Close;
End;
I : Word;
If MDIChildCount >= 1 then
Begin
With Form1 do
For I := MDIChildCount -1 downto 0 do
MDIChildren[I].Close;
End;
Responder
07/04/2006
Paullsoftware
pode tentar usando o [b:4ca0bab309]Assigned[/b:4ca0bab309]
:wink:
if Assigned(NomeDoForm) then begin //Comandos para tratá-lo end;
:wink:
Responder
Clique aqui para fazer login e interagir na Comunidade :)