fechar form sem se est� criado

Question

Crio tr�s forms dinamicamente.
Sempre tem apenas um criado e na tela (showModal).
O que eu gostaria � fechar o form que est� aberto sem saber qual deles � que est� carregado.

Como poderia fazer isso?

Obrigado.

Mayron Cachina · Answer

rpz eu tenho 99.9� de certeza que vc tem q saber o nome de um form pra fechar ele!!!ele ta abrindo sozinho e s� 2, se tem 3??? explica melhor um pouquinho ai......

Armindo · Answer

[quote:6e83082522=�Mayron Cachina�]rpz eu tenho 99.9� de certeza que vc tem q saber o nome de um form pra fechar ele!!!

ele ta abrindo sozinho e s� 2, se tem 3??? explica melhor um pouquinho ai...[/quote:6e83082522]

Vou colocar um pouco diferente ent�o:
Tenho 3 forms. Um � o principal(form1). Neste tenho um menu onde o form2 e outro menu onde o form3 � chamado.
Quando se aciona esses menus eu excuto:
�Application.CreateForm(TForm2,Form2);
Form2.ShowModal�
ou
�Application.CreateForm(TForm3,Form3);
Form3.ShowModal�

No form principal, coloquei um ApplicationEvents. Quando ocorrer uma exce��o qualquer em um dos forms (2 ou 3), no onException do ApplicationEvents, quero fechar o form ativo (FAtivo.Close);
Ou seja, o que preciso � verificar qual o form (al�m do principal) que est� carregado, para fech�-lo.

OBs.: coloquei 3 forms s� para exemplificar, mas na verdade a aplica��o tem mais de 30 forms.

Obrigado

Mayron Cachina · Answer

Ja tentou Self.close?ai vc trata o erro no pr�pio form...eu acho q pode fazer isso...

Armindo · Answer

[quote:ca01ff1e9a=�Mayron Cachina�]Ja tentou Self.close?
ai vc trata o erro no pr�pio form...
eu acho q pode fazer isso[/quote:ca01ff1e9a]

Tendo em vista in�meras outras vari�veis no meu sistema, que n�o tem como te explicar aqui, eu preciso fazer o tratamento no componente ApplicationEvents.

Mas valeu pela tentativa de ajuda.
Se descobrir algo, postarei aqui.

Obrigado.

Johnny-walker · Answer

Amiog tem um jeito de vc sabber qual form esta aberto utilizando-se da variavel Screen...

mais ou menos assim:

procedure TForm1.Button1Click(Sender: TObject);
var
I : Byte;
begin
for I := 1 to Screen.FormCount -1 do
begin
ListBox1.Items.Add(Screen.Forms[I].Name);
end;
end;

PS.: lembranod que a variavel screen somente retorna os forms criados ou autocriados...

bye

Armindo · Answer

Funcionou assim: Screen.ActiveForm.Close...

F�rum fechar form sem se est� criado #346834