Traer al frente un fromHijo

[Zakio14]

Pura vida Foro!!

Mi consulta es la siguiente.

Tengo un From Madre y tengo un Botón que llama a una Ventana Hija.

Cada vez que clicko en este botón me crea una ventana nueva y eso me irrita de cierto modo, lo que quiero es crear una función que me cree el fromHijo si no esta creada, pero si ya esta creada que me la llame al frente de las demás pero sin volver a crearla.

Mi consulta es: Que Algoritmo uso para llamar esto, les agradezco toda ayuda que me puedan brindar.. Mil Gracias

[[Caral]]

Hola
Codigo?
Con que codigo llamas al from?
Recuerda si nos das detalles podremos hacer algo mas.
Saludos

[[eduarcol]]

utiliza la variable global que se genera en la unit del formulario.

Código Delphi [-]
Form2: TForm2;

En las propiedades del proyecto quitalo de los autocreate y pasalo a los avalaible, agrega este codigo al boton.

Código Delphi [-]
if not Assigned(Form2) then
      Form2 := TForm2.Create(Application);

   Form2.Show;

[jachguate]

Bueno, yo lo hago mas o menos como dice Eduarcol, con formularios padres/hijos. Supongo que las mismas reglas aplican para formularios Madres/hijas...

Digamos que para completar el algoritmo, aporto lo siguiente:

Código Delphi [-]
  if not Assigned(Form2) then
    Form2 := TForm2.Create(Application)
  else if Form2.WindowSate = wsMinimized then
    Form2.WindowSate = wsNormal;
  Form2.BringToFront;

Obviamente, hay que tener cuidado de que la variable Form2 se asigne a nil al momento de destruir el formulario para que esto funcione adecuadamente.

Hasta luego.

[Zakio14]

Pura Vida!

Gracias por su ayuda eso me funciono bien!! Mil Millones de Gracias

Gracias porque siempren me sacan mis dudas!!

[Zakio14]

Pura Vida Foro!

Bueno Este codigo lo encontre y me funciona a la perfeccion!!!

Lo Pongo aqui por si alguien lo llega a necesitar...

Código Delphi [-]
 
//Esta funcion se crea en Public
 
function ExisteForm(Formulario : string) : boolean;

// Esta funcion ya definida en el Public
function TPrincipal.ExisteForm(Formulario : string) : boolean;
var
   ChildIndex : integer; 
begin
  ChildIndex := 0;
  result := false;
  while (ChildIndex < MDIChildCount) and (not result) do
    begin
      if MDIChildren[ChildIndex].Name = Formulario then
         result := true
      else 
          inc(ChildIndex);
    end;
  if result then
     MDIChildren[ChildIndex].BringToFront;
end;
 
 
// Esto se coloca en el llamado del formulario hijo MDI
 if not ExisteForm('FMatricBach') then  //Primero se llama esta función para asegurarnos de que no existe el formulario
     begin                                          // ExisteForm es la funcion creada aqui la llamamos
       FMatricBach := TFMatricBach.Create(Application);
       FMatricBach.show; //no uso showModal
     end;

//Esta función es llamada cada vez que se abre un Formulario desde Menú
//para asegurarnos de que no se encuentra ya abierto el mismo 
//Buscamos entre los formularios hijos abiertos, si no esta cargado se carga
//De lo contrario se trae al frente de los demás.

Hasta la proxima foristas...

[jachguate]

Hola. Por favor, utilizá la etiqueta delphi para publicar trozos de código. He editado tu mensaje para añadirla, y espero que coincidas conmigo en que la presentación del mensaje está mucho mejor ahora.

Hasta luego.