Traer al frente un fromHijo

[[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.