Fórum Manter somente uma instância do form aberta na aplicação #245908

function TfrmPrincipal.JanelaAberta(NomeClasse: String): boolean;
var
  i: integer;
begin
  Result := False;
  for i := 0 to Self.MDIChildCount - 1 do
  begin
    if Self.MDIChildren[i].ClassName = NomeClasse then
    begin
      Result := Self.MDIChildren[i].Visible;
      if Result then
        Self.MDIChildren[i].BringToFront;
      Break;
    end;
  end;
end;

procedure TfrmPrincipal.mnuCadastroUsuarioClick(Sender: TObject);
begin
  if not JanelaAberta(TfrmCadastroUsuario.ClassName) then
    TfrmCadastroUsuario.Create(Self);
end;