Buscar

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
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 23/09/10
Por: Klerysson
Visualizada: 12356 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009