Fórum Fechar todos os forms #460636
10/11/2013
0
Tem como fechar todos os formulários de uma aplicação, exceto o formulário principal?
Romario Melo
Curtir tópico
+ 0
Responder
Posts
11/11/2013
Gustavo Bretas
Romário, vc pode colocar esse código no Formulário Principal!
procedure TForm1.FecharForms;
var
i: Integer;
begin
for i := 0 to Application.ComponentCount - 1 do
begin
// -> Verifia se é um Form
if Application.Components[i].InheritsFrom(TForm) then
// -> Verifica se não é o principal
if (TForm(Application.Components[i]).Name <> 'NomeDoSeuForm') then
TForm(Application.Components[i]).Close;
end;
end;
Responder
Gostei + 0
11/11/2013
Deivison Melo
Boa tarde,
Acho que o amigo Bretas conseguiu concluir sua dúvida, caso tenha efetuado o teste e conseguido solucionar, sinalizar para encerrarmos o tópico.
Atenciosamente,
Emanoel Deivison
Recife - PE
Acho que o amigo Bretas conseguiu concluir sua dúvida, caso tenha efetuado o teste e conseguido solucionar, sinalizar para encerrarmos o tópico.
Atenciosamente,
Emanoel Deivison
Recife - PE
Responder
Gostei + 0
19/11/2013
Romario Melo
Vou testar agora mesmo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)