Verificar se Form j� est� aberto

Question

Pessoal...Eu estou encontrando dificuldades em verificar se o meu form j� est� aberto. Eu tentei as alternativas que encontrei aqui na comunidade mas n�o est� dando certo.Em primeiro lugar, quero tent...

Paullsoftware · Answer

creio que essa rotinha vai te ajudar, pois, uso ela em minha aplica��es...

function ChecaForm(aForm: Tform): Boolean;
var
I:Integer;
begin
    ChecaForm := false;
    for I := 0 to Screen.FormCount -1 do
    if Screen.Forms[i] = aForm then
    begin
    ChecaForm := true;
    Break;
    end;
end;  (* ChecaForm *)

para executar...

 if ChecaForm(FrmUsuarios) then
  begin
    FrmUsuarios.BringToFront;
    FrmUsuarios.Focused;
  end
 else
  begin
    FrmUsuarios := TFrmUsuarios.Create(nil);
    FrmUsuarios.BringToFront;
    FrmUsuarios.Focused;
  end;

espero ter ajudado!! :wink:

Marcos.gandin · Answer

Mas eu n�o preciso dar um ShowModal no meu form?E como tem que ser os meus forms?  MDIChild?...

Paullsoftware · Answer

[quote:d6c92425dc=�marcos.gandin�]Mas eu n�o preciso dar um ShowModal no meu form?[/quote:d6c92425dc]N�o!!!![quote:d6c92425dc=�marcos.gandin�]E como tem que ser os meus forms?  MDIChild?[/quote:d6c92425dc]Isso, devem ser MDIChild!!!espero ter ajudado!!! :wink:...

Marcos.gandin · Answer

Olha s�...N�o sei o que est� acontecendo.Eu fiz o que voc� sugeriu, mas n�o est� dando certo.Quando eu vou chamar o meu form, est� dando a seguinte mensagem:[b:946c4fd1c9]Cannot create form. No MDI forms are currently active.[/b:946c4fd1c9]O que eu gostaria que me ajudasse � que me dissesse como eu chamo um form MDIChild e como eu fecho ele tamb�m.� que eu vou poder ter ele v�rias vezes aberto, ent�o, quando eu fechar, como devo proceder?...

F�rum Verificar se Form j� est� aberto #349502