Buscar por:

fechar form ao abrir um novo

Código

Bem pessoal segue uma dica muito boa para agilização de um programa, ou seja, se o usuário estiver com uma tela aberta e precisar abrir uma nova, o usuário deveria fechar a tela aberta para abrir a proxima, mais para agilizar esse processo a procedure abaixo fará esse fechamento automático sem precisar que o usuário feche uma para abrir a outra.

procedure TForm1.Fechar_Janelas;

var

   i : Integer;

begin

     for i := 0 to Form1.ComponentCount - 1 do begin

           if Form1.Components[i].InheritsFrom(TForm) then

           begin

             (Form1.Components[i] as TForm).Close;

           end;

     end;

end;

crie a procedure no form principal e é só chamar o evento antes da abertura do form