Verificar se form(MDI) j� foi criado, ou se est� ativo

Question

Ol�, como fa�o para saber qual form(MDI) d� minha aplica��o est� ativo? Eu tentei fazer isso com

 if (Form1 = nil) then ...

mas acho que isso s� funciona para uma aplica��o SDI. Algu�m poderia me ajudar? Obrigado

Massuda · Answer

No seu form principal...[list:b9eb66a632][*:b9eb66a632]a propriedade ActiveMDIChild indica qual form MDI child est� ativo[*:b9eb66a632]a propriedade MDIChildCount indica quantos forms MDI child est�o em uso[*:b9eb66a632]a propriedade MDIChildren � um array com os forms MDI child que est�o em uso[/list:u:b9eb66a632]

Giancorrea · Answer

Massuda, desculpe a minha ignor�ncia, mas como eu posso fazer uma verifica��o? Eu gostaria de criar um formul�rio uma vez s�. Mas quero utilizar janelas MDI. Obrigado...

Massuda · Answer

Voc� disse que vai ter uma �nico form de cada classe, mas poder� ter v�rios forms (de classes diferentes) criados simultaneamente?...

Giancorrea · Answer

Isso mesmo. H� algo de errado nisso?  :?:  :?...

Massuda · Answer

[quote:acf069c932=�giancorrea�]Isso mesmo. H� algo de errado nisso?  :?:  :?[/quote:acf069c932]N�o... mas se voc� respondesse que s� poderia ter um �nico form de cada classe e que num dado instante s� poderia ter um form criado, eu diria para voc� continuar usando SDI.Imaginando que cada form seu � de uma classe diferente, para testar se j� existe um form MDI child de uma determinada classe, fa�a algo assim em seu form principal...[code:1:acf069c932]var  I: Integer;...  for I := 0 to MDIChildCount - 1 do begin    if MDIChildren&#91;I&93; is TSuaClasse then begin      // j� existe um form da classe TSuaClasse      // MDIChildren&91;I&93; � o form      Break;    end;  end;...[/code:1:acf069c932]...

Giancorrea · Answer

Valeu pelas dicas Massuda...

Eniorm · Answer

eu num projetinho MDI eu usava assim pra abrir os forms e evitar que fosse aberto o mesmo form + de 1 vez

if (form = Nil) then
application.CreateForm(tform, form);
form.Show

e no OnClose do form (filho) eu uso

Action := caFree;
Release;
form := Nil;

fununciava blza!!!!!!!! e se vc tentasse abrir um form ja aberto, iria apenas mostrar o q ja estava aberto, sem re-criar ele

abra�o