Verificar se o Form est� aberto

Question

Ol� a todos e boa noite,Esta � moleza, e pra variar eu n�o seiTenho v�rios forms.  Criados em tempo de execu��o.Como fa�o para saber se o um Form est� criado ou n�o?Valeu OBrigado....

Dbergkamps · Accepted Answer

valeu cara eu sabia que era simplesobrigado e boa noite....

Poeta Noturno · Answer

ol� amigofa�a assim:if form1 = nil then [n�o est� criado]else [est� criado]um abra�oRodrigo...

Massuda · Answer

Voc� usar a vari�vel global Screen e usar as propriedades FormCount e Forms para ter acesso a todos os forms abertos pelo seu programa, independente de quem � o Owner do form.

Assumindo que voc� s� tem um form de cada classe, o seguinte c�digo resolveria o problema de saber se um form est� criado (n�o testei):

function FormEstaCriado(AClass: TClass): Boolean;
var
  I: Integer;
begin
  Result := False;
  for I := 0 to Screen.FormCount -1 do begin
    if Screen.Forms[I] is AClass then begin
      Result := True;
      Break;
    end;
  end;
end;

Para saber se um form da classe TSeuForm est� criado, fa�a:

  if not FormEstaCriado(TSeuForm) then begin ...

Rodc · Answer

A forma mais bonita � :[code:1:53a7ed4d1f]  if Assigned(TForm1) then    //Criado  else    //N�o criado[/code:1:53a7ed4d1f]  O Assigned faz nada mais que comparar o objeto com nil....

Fl�vio Lopes · Answer

quando form  nil quer dizer que foi instanciado na mem�ria, mas n�o quer dizer que esteja aberto show.Existe casos em que o form pode estar instanciado na mem�ria e estar hide ou close.ent�o creio que a op��o melhor seria if form  nil thenbegin   showmessage(Form criado na mem�ria !);   if form.visible then      begin        showmessage(Form est� aberto/vis�vel. Fecharei);        form.close;      end   else      begin        showmessage(O form n�o est� aberto/vis�vel. Abrirei.);        form.showmodal;      end;   // liberando form da mem�ria   form.release;   form.free;   form:= nil;   if form = nil then      showmessage(O form foi liberado da mem�ria);end;...

F�rum Verificar se o Form est� aberto #267954