Fechar Forms

Question

Galera, eu tenho um formulario principal da aplica��o...tenho uma rotina que testa  se tiver inativo por algum tempo ele mostra a tela de login novamente...soh que gostaria de mandar fechar todos os f...

Edilcimar · Answer

� mdi?...

Fred · Answer

A aplica��o eh MDI ou SDI???...

Tremonti · Answer

SDI...

Tremonti · Answer

Tenho uma aplica��o SDIe crio formularios conforme preciso...Mas em um certo tempo, se fica inativo o programa ele me abre novamente a tela de Login...Gostaria de antes de abrir a tela de login, fechar todos os forms abertos..(Close)menos o frmPrincipal e deixar o frmLogin lah..Um ABra�o......

Marco Salles · Answer

Tente isto . Talvez te dara uma id�ia de Como Fazer

� Claro que este Evento deve ser colocado em algum Timer, para ser disparado conforme sua necessaidade...

Coloquei No Bot�o so , para ter uma id�ia .

procedure TForm1.Button2Click(Sender: TObject);
var
 i:Integer;
begin
i:=0;
while i <= Application.ComponentCount-1 do
  begin
    if application.Components[i] is Tform Then
      begin
        showmessage((application.Components[i].name));
          //Form1 = Nome do seu FormPrincipal
          if TForm(application.Components[i]).name <> �Form1� Then
            begin
              if (TForm(application.Components[i])).Visible Then
                 begin
                   Showmessage(�Destruindo�);//desnecess�rio
                   Tform(Application.Components[i]).Hide;
                end;
            end;
     end;
    i:=i+1;
  end;
end;

� Claro que n�o destroi, neste exemplo ele so esconde.
e a mensagem tb n�o precisa e so para ilustrar

Acho que talvez no seu caso , seje melhor esconder do que ter que criar tudo de novo

Tremonti · Answer

Cara, nao deu certo aki...Poderia me ajudar de novo?!/...

Marco Salles · Answer

Com esta o seu c�digo?? e o que que aconteceu???N�o compilou?? Ou Foi erro de execu��o???...

Tremonti · Answer

Compilou normalnao deu erroEle soh nao destroi os forms...

Edilcimar · Answer

o c�digo dele hide, esconde o form, n�o dest�i, se quizer destruir substitua o hide por release...

Tremonti · Answer

Nao funcionanao da erromas ele nao destroy tbAbra�os......

F�rum Fechar Forms #280401