Encontrar un formulario en la aplicacion dado un string

[dec]

Hola,

Tal vez no sea preciso que uses una cadena, sino que, si utilizas una variable para el formulario en cuestión, por ejemplo, "form2", puedes codificar algo como:

Código Delphi [-]
If not Assigned(form2) then
  form2 := TForm2.Create(Self);

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

También puedes usar un TObjectList, cuandos creas un formulario lo añades, cuando lo destruyes lo borras.
Para buscarlo, sólo debes recorrer el ObjectList y ver de los que hay creados cual se llama igual que el tuyo.

[[Lepe]]

Otra forma más:

Código Delphi [-]

// si lo encuentra, devuelve en Result el Form
// si no lo encuentra, devuelve Nil
function FormExists(NombreClase:String):TForm;
var i:integer;
begin
  Result:= nil;
  for i:= 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].ClassName = NombreClase then
    begin
       Result := TForm(Screen.Forms[i]);
       Break;
    end;
end;

// uso:
var F:TForm;
begin
  F:=  FormExits('TForm1');
  if Assigned(F) then
    F.BringToFront
  else
  begin 
// necesitaría tener la clase de esta ventana para hacer:
  F := TClaseVentana.Create(Application);
  F.Show;

  end;

El nombre del Formulario no es seguro, si creas tres ventanas de tipo TForm1, se llamarán Form1, Form1_1, Form1_2 y al tiempo de buscar se complican las cosas, es mejor usar su tipo o usar fábrica de clases (busca en el foro) pero ya se empieza a complicar las cosas.

Saludos

[Cecil]

Gracias a todos, buscando y buscando he encontrado una forma que es registrando las clases en el formulario principal y cuando quiero crear el formulario llamo a la función GetClass( string );
Un saludo!

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

Empezado por Cecil

buscando he encontrado una forma que es registrando las clases en el formulario principal y cuando quiero crear el formulario llamo a la función GetClass( string )

Si has registrado correctamente la clase, GetClass() te dará una referencia a esa clase con lo que puedes crear un formulario.
Lo que no me queda claro es qué tiene que ver eso con encontrar un formulario que puede estar creado o no a partir de un string.
¿Puedes explicarte?

[Cecil]

Pues mira, lo que necesitaba era crear un formulario a partir de el nombre de su clase, y lo he hecho de la siguiente manera:

Código Delphi [-]
function CrearForm(sForm: String): TForm;
var
  PcClase: TPersistentClass;
begin
{
  Para que funcione esta función, debemos de Registrar la Clase del Formulario en el Formulario principal
  como en el ejemplo siguiente:

  initialization
    RegisterClass( TFormEditAgentes );

  finalization
    UnregisterClass( TFormEditAgentes );
}

  Result := nil;
  
  PcClase := GetClass( sForm );

  if Assigned( PcClase ) then
    Result := TFormClass( PcClase ).Create( Application );
end;

Si te fijas, al GetClass le paso como parámetro un string, que es el nombre de la clase del formulario y ya básicamente queda crearlo. Espero resolver tus dudas

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

Empezado por Cecil

necesito alguna forma que, dado un string con el nombre de un formulario, lo encuentre en mi aplicación.

Empezado por Cecil

...lo que necesitaba era crear un formulario a partir de el nombre de su clase

Más o menos ya me imaginaba que iba por ahí, lo que me liaba era la frase inicial del mensaje. Si de primeras hubieras dicho que lo que necesitabas era crear uno nuevo, seguramente hubiéramos llegado antes a la conclusión.

En principio crear uno es más sencillo, que buscar uno ya creado con esa clase.

Un saludo y gracias por postear el código.