Como fechar todos os forms abertos no aplicativo

Question

Gostaria de saber se tem uma function ou procedure que feche todos os forms abertos no aplicativo, para logout. Algu�m sabe de alguma rotina, fun��o, procedure etc...ObrigadoMarcos :?:...

Ltres · Answer

Cara ai tem uma rotina q no button1 fecha os forms abertos menos o principal e no button2 abre o form2 e form3.

procedure TForm1.Button1Click(Sender: TObject);
var
  n: integer;
begin
  for n:=0 to Application.ComponentCount-1 do
  if Application.Components[n] is TForm then
    if not(TForm(Application.Components[n]) = Application.MainForm) then
      if TForm(Application.Components[n]).Showing then TForm(Application.Components[n]).Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form3.Show;
  Form2.Show;
end;

Lembrando q se quiser tirar eles da memoria vc tem q adicionar o comando TForm(Application.Components[n]).Free no button1, e para abrir Application.CreateForm(TForm2, Form2); depois dar o show.

Pr.mas · Answer

Valeu LTres!!!Obrigado pela dica.Marcos...

Fknyght · Answer

Ai, esta fun��o de fechar todos os forms n�o funciona se o form for criado desta maneira

Form2 := TForm2.Create( Self ); Form2.Show;

ela so funciona se o form for criado da seguinte forma

application.CreateForm(TForm2,form2); Form2.Show;

Tem alguma maneira outra maneira de fechar os forms abertos sem ser esta.

Grato

Fknyght · Answer

Ai, tava fazendo umas modifica��es no c�digo e resolvir testar para ambos os metodos de cria��o de forms:

Form2 := TForm2.Create( Self ); Form2.Show;

application.CreateForm(TForm2,form2); Form2.Show;

Form2 := TForm2.Create( Application ); Form2.Show;

procedure FecharForms; var n : integer; Form : TForm; begin // Fechas os forms criados na aplica��o Sair := False; n := 0; While n <= ( Application.ComponentCount - 1 ) do Begin if ( Application.Components[ n ] is TForm ) then Begin Form := TForm(Application.Components[n]); If ( Form <> Application.MainForm ) then Begin N := -1; Form.Close; Form.Free; End; End; Inc( N ); End; // Fechas os forms criados no formul�rio principal n := 0; While n <= ( Application.MainForm.ComponentCount - 1 ) do Begin if ( Application.MainForm.Components[ n ] is TForm ) then Begin Form := TForm(Application.MainForm.Components[n]); If ( Form <> Application.MainForm ) then Begin N := -1; Form.Close; Form.Free; End; End; Inc( N ); End; End;

O c�digo acima n�o esta dentro de um for porque qdo der o [b:580f86a6a4]FREE[/b:580f86a6a4] no formul�rio aberto, o mesmo sai da lista de componentes, causando um erro de aplica��o.

Quando damos um FREE no form, temos que reeniciar a consulta deste a partir do zero. Esta fun��o faz isso perfeitamente

Qualquer duvida tamos ai
Qualquer melhora��o no c�digo sera bem vinda :)

Paulo_amorim · Answer

Ol�Se os forms forem abertos em ShowModal, pode-se tentar fazer (continuando o codigo do LTres)[code:1:8cd536098d]TForm(Application.Components&#91;n&93;).ModalResult := 1;[/code:1:8cd536098d]Espero que ajudeAt�+...

Ltres · Answer

bom realmente se vc criar um form fora do TApplication ele naum vai fechar. Mas pra resolver o problema vc pode criar uma fun��o geradora de forms, ai guardar o handle ou o proprio form para fecha-lo quando chamar outra fun��o. Veja o codigo q fiz

var
  Form1: TForm1;
  OutForm: TForm;

  ListFormsOut: array of HWND;

implementation

{$R *.dfm}

procedure FechaFormsForaAPP;
var
  n: integer;
begin
  for n := 0 to Length(ListFormsOut)-1 do
  begin
    SendMessage(ListFormsOut[n], WM_CLOSE, 0, 0);
    SendMessage(ListFormsOut[n], WM_DESTROY, 0, 0);
  end;
end;

procedure CriaForm(vC: TClass; var vF: TForm);
var
  n: integer;
begin
  vF := TFormClass(vC).Create(nil);

  if vF <> nil then
  begin
    n := Length(ListFormsOut);
    SetLength(ListFormsOut, n+1);
    ListFormsOut[n] := vF.Handle;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CriaForm(TForm, OutForm);
  OutForm.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FechaFormsForaAPP;
end;

pelo q testei funcionou blz.. se tiver duvidas manda ai

Ltres · Answer

a digitei errado,,, ali na funcao CriaForm altere o seguinte

procedure CriaForm(vC: TClass; var vF: TForm);
//por
procedure CriaForm(vC: TFormClass; var vF: TForm);

e tb

vF := TFormClass(vC).Create(nil);
//por
vF := vC.Create(nil);

F�rum Como fechar todos os forms abertos no aplicativo #214094