Como Fechar Um Form Automaticamente Ao Abrir Outro?

Delphi

07/04/2006

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


Exvasp

Exvasp

Curtidas 0

Respostas

Edilcimar

Edilcimar

07/04/2006

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;


GOSTEI 0
Paullsoftware

Paullsoftware

07/04/2006

pode tentar usando o [b:4ca0bab309]Assigned[/b:4ca0bab309]

if Assigned(NomeDoForm) then
 begin
  //Comandos para tratá-lo
 end;

:wink:


GOSTEI 0
POSTAR