Evitar formularios duplicados

[Neftali [Germán.Estévez]]

Empezado por Angel.Matilla

Tengo una aplicación en BCB6 en la que varios de los formularios están definidos como fsMDIChild. Lo que me está pasando, que no se me había ocurrido, es que se puede abrir cada uno de estos formularios más de una vez y no se me ocurre como evitarlo.

La duda (y que cambia la respuesta) es ¿cómo estás creando los formularios?

a) Si estás usando las variables globales para los formularios debería bastar con preguntar si la variable está asignada o no y al cerrar el formulario asegurarte de ponerla a nil.

b) Si no estás usando variables globales, sino que los creas "al vuelo", deberás detectarlo, por ejemplo por la clase. O puedes almacenar una lista con los formularios creados. O determinar el criterio para la no duplicidad; Por ejemplo, poder abrir 2 formularios de cliente, pero NO 2 del mismo cliente.
En estos casos puedes consultar la lista de formularios creados usando TScreen.FormCount y TScreen.Forms (https://docwiki.embarcadero.com/Libr...een_Properties) o llevar la lista tú mismo.

[Angel.Matilla]

Gracias por las respuestas. Las propiedades TScreen->FormCount y TScreen->Forms no las conocía y creo que me va a ser muy útiles. Los formularios los voy creando cuando se pulsa la opción donde hacen falta.

void __fastcall TfMenu::GesAfiClick(TObject *Sender)
{
Application->CreateForm(__classid(TfPersona), &fPersona);
fPersona->Show();
}

[Angel.Matilla]

Efectivamente me va valido. El código ha quedado así:

void __fastcall TfMenu::GesAfiClick(TObject *Sender)
{
     bool lExiste = false;

     for (nItem = 0; nItem < Screen->FormCount; nItem ++)
     {
          if (Screen->Forms[nItem]->Name == "fPersona")
          {
               lExiste = true;
               break;
          }
     }

     if (!lExiste)
          Application->CreateForm(__classid(TfPersona), &fPersona);
     fPersona->Show();
}

Gracias a los dos por las sugerencias.