Maximizar MDIChild

[ecfisa]

Hola ramonibk.

Probá de este modo:

Código Delphi [-]
...
procedure TForm1.TraerFormAlFrente(AName: string);
var
  i: Integer;
begin
  for i:= MDIChildCount-1 downto 0 do
    if MDIChildren[i].Name = AName then
    begin
      if MDIChildren[i].WindowState = wsMinimized then
        MDIChildren[i].WindowState:= wsMaximized;
      MDIChildren[i].BringToFront;
    end;
end;

Ejemplo llamada:

Código Delphi [-]
   TraerFormAlFrente('Form5');

No te dará el error ya que no invocará una ventana no creada (ni la mostrará), pero como bién dice maeyanes, el error sigue estando...

Saludos.

[ramonibk]

Buenos dias.
Como dices maeyanes

Tienes el error por que estas tratando de usar una variable a un objeto que no ha sido creado (frmArticulos).

Otra cosa, la variable Articulo es local al método SpeedButton1Click, por lo tanto, esta se elimina al salir de mismo, lo que dificulta que puedas acceder de nuevo al objeto creado (el formulario sigue accesible desde la propiedad MDIChildren del formulario principal de la aplicación).

Verifica bien estos detalles para que puedas corregir el error que obtienes.

la variable Articulos es de tipo boolean, como variable global y esta definida dentro del Form principal (fsMDIForm) y se inicializa en el create del form

[ecfisa]

Hola ramonibk.

No entiendo cuál es el problema ahora, pero tomando en cuenta lo que mencionas en el primer mensaje:

La cosa es como puedo hacer para que en caso de que el form se encuentra abierto.
Bien lo maximice si se encuentra minimizado
Bien lo pase a primer plano si se encontrara en segundo plano.

Y viendo que en el código del mensaje #4 intentas la creación sin lograrlo, creo que con este procedimiento vas a dar solución al problema:

Código Delphi [-]
...
(* Crear MDIChild  *)
procedure TForm1.AbrirMDIChild(AClass: TFormClass);
var
  i: Integer;
begin
  for i:= MDIChildCount-1 downto 0 do
    if MDIChildren[i] is AClass then //  ¿ Se encontro ?
    begin
      if MDIChildren[i].WindowState = wsMinimized then // Si, ¿ Minimizado ?
        MDIChildren[i].WindowState:= wsMaximized;  // => Maximizar
      MDIChildren[i].BringToFront;  // traer al frente
      Exit; // nada mas que hacer aquí...
    end;
   with AClass.Create(Self) do // no se encontró => Crearlo
    BringToFront; // traer al frente
end;

(* Ejemplo de llamada *)
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  AbrirMDIChild(TMDIChild1);
end;

Saludos.

[ramonibk]

Buenas de nuevo.

La creación del Form si la hago correctamente.
el problema me surge cuando este esta ya creado. Para controlar si esta creado o no uso la bariable Articulo cuando creo el form la pongo a true y al cerrar el form la pongo a false.

el problema me surge si cuando el for fa esta creado deseo ponerlo en primer plano (se puede encontrar en segundo plano o minimizado. y abría que ponerlo en primer plano en modo normal.)
ecfisa todavía no he podido probar el código que me comentas pero en cuanto lo pueda hacer os comento los resultados.

[ecfisa]

Hola ramonibk.

La creación del Form si la hago correctamente.
el problema me surge cuando este esta ya creado.

Si, la verdad me expresé mál , debí decir: "intentas mostrarlo o crearlo recibiendo errores de access violation como nos comentas en el mensaje #4". Pero del modo que te indico no vas a tener ese inconveniente.

Aprovecho para decirte algo que no sé si dejé bién claro en el mensaje anterior. Como argumento del procedimiento tenes que pasar la clase del form ,no la instancia. Ej.: TForm1 y no Form1.

Saludos.

[[maeyanes]]

Hola...

Empezado por ramonibk

la variable Articulos es de tipo boolean, como variable global y esta definida dentro del Form principal (fsMDIForm) y se inicializa en el create del form

Según el código que publicaste, la variable Articulos es del tipo TfrmArticulos y es local al método.

Código Delphi [-]
Var
 Articulo : TfrmArticulos;

y la variable (entiendo que global) ArticuloFrm es la que es de tipo Boolean. A menos que haya sido un error tuyo al momento de publicar tu código.


Saludos...