Optimizando Creación de Formularios MDI

[nelostanley]

Compila correcto ... pero cuando haces refrencia a F.Cualquiercosa sigue el error de "Access Violation".

Ejm. Cuando en un reporte R1 quieres hacer refrencia algo de F1.CualquierCosa, te tira el mismo error, cosa que no sucede en lo absoluto cuando llamas al formulario.

Código Delphi [-]
  if not Assigned(frmC1) Then begin
    frmC1 := TfrmC1.Create(Application);
    frmC1.Show;
  end  else begin
    if frmC1.WindowState = wsMinimized then 
          frmC1.WindowState := wsNormal;
    frmC1.BringToFront;
  end;

Asi corre de 10 !! pero cuando lo llevas a la funcion o procedimiento no funcina las refrencias.

Para evitarme recodificar varias cosas he optado por llamar algunos formularios directamente sin funcion o procedimiento.

Ojala alguien tenga un poquito de paciencia, sino de todas formas gracias.

[jachguate]

Supongo que no estas haciendo la asignación al llamar a la función.

La llamada debiera lucir algo como esto:

Código Delphi [-]
  Form1 := ShowMDIChildForm(TForm1) as TForm1;

Hasta luego.

[[Lepe]]

Empezado por nelostanley

Compila correcto ... pero cuando haces refrencia a F.Cualquiercosa sigue el error de "Access Violation".

Otro detalle que no se ha comentado.

En la Unit del TForm1, no harás referencia para nada a FrmC1 ¿verdad?

Me explico, si tienes un código así:

Código Delphi [-]
procedure TForm1.ElEventoQuesea(...);
begin 
   frmC1.Loquesea
end;

Eso dará un Access Violation, porque estamos creando la ventana con la variable "F" (desde nuestra rutina), pero en el TForm1 estamos usando la variable frmC1 que no ha sido creada, tiene un puntero nulo.

Saludos

[[Chris]]

Empezado por Lepe

... Perdona D&W, pero no se ha dicho si quiere una instancia o varias del mismo Form, hecho que nos haría modificar bastante nuestro código.

Tampoco se dice si se quiere tener una referencia a la ventana creada, o no le importa.

Disculpa Lepe, pero de que haya una o varias instancias del mismo form, eso depende de la variable que se le pase como paramentro a la función que postie. (Si siempre le paso Form1, sólo habrá una instancia de tipo TForm1 y será siempre Form1.

Empezado por Lepe

Código adecuado no creo que exista, lo tendrá que adaptar a sus necesidades y a su gusto. Al menos yo pretendía dar ideas, después él tendrá que adaptarlo.

En el club, cuando posteamos un código, se da por sobre entendido que es un molde y en muchos casos una sugencia. Cuando dije "Poco adecuado" en ningún momento pretendí decir que era un mal código, al contrario.

Empezado por Lepe

En cuanto a tu código, no entiendo muy bien como harías una llamada a esa rutina, porque el parámetro es de tipo TForm y después haces un moldeo de tipos a TFormClass en la línea 2. Que conste que no es una crítica, es más bien una duda.

Si yo pido como parámetro una variable tipo TFormClass entonces me tendrían que pasar por ejemplo TForm1 en vez de Form1 (según entiendo Hasta donde llega mi limitada comprensión del lenguaje). De todos modos, luego que postie el código me dí cuenta que produciía el Acccess Violation que me mencionó nelostanley , fue entonces que ví que había que pedir dos parámentros en vez de sólo uno -el nombre de la varíable y el tipo de variable o form- no puede postear los cambios porque no me dio tiempo de hacerlo.

Empezado por Lepe

Otros comentarios:
- La línea 3 puede quitarse, como son mdichild, al crear la ventana se muestra por defecto.

Gracias por la aclaración, ya lo sabía. También sé que no está de más la linea y que de esa forma la función también puede servir para todo tipo de formularios, ya sean mdiChild o mdiNormal.

aquí va la modificación, espero sirva.

Código Delphi [-]
Procedure TMainForm.CreateOrRestoreForm(aForm : TForm, aFormClass : TFormClass);
  if not Assigned(aForm) Then begin
    aForm := aFormClass.Create(Application);
    aForm.Show;
  end
  else begin
    if aForm.WindowState = wsMinimized then  
        aForm.WindowState := wsNormal;
    aForm.BringToFront;
  end;
end;

Para llamar a la función lo haces así:

Código Delphi [-]
CreateOrRestoreForm(frmC1,TfrmC1);

[jachguate]

Solo una observación.

Empezado por D&W

aquí va la modificación, espero sirva.

Código Delphi [-]
Procedure TMainForm.CreateOrRestoreForm(aForm : TForm, aFormClass : TFormClass);
  if not Assigned(aForm) Then begin
    aForm := aFormClass.Create(Application);
    aForm.Show;
  end
  else begin
    if aForm.WindowState = wsMinimized then  
        aForm.WindowState := wsNormal;
    aForm.BringToFront;
  end;
end;

Con esta rutina propuesta, ninguna asignación ocurre sobre la variable de formulario que se pasa como parámetro.

Si se hacen dos llamadas consecutivas, por ejemplo:

Código Delphi [-]
var
  Form1: TForm1;
begin
  MainForm.CreateOrRestoreForm(Form1, TForm1);
  MainForm.CreateOrRestoreForm(Form1, TForm1);
end;

Se tendrá dos instancias de TForm1.

Hasta luego.



Sugerencia: Si querés crear una rutina que asigne el valor de esa variable, date una vuelta por el código fuente del método CreateForm de la clase TApplication.

[[Chris]]

Gracias por la observación jachguate tienes toda la razón. Nunca había probado el código hasta después de lo que me comentastes. Ya lo he reparado -según yo-

Código Delphi [-]
Procedure TMainForm.CreateOrRestoreForm(var aForm : TForm; aFormClass : TFormClass);
Begin
  if not Assigned(aForm) Then begin
    aForm := aFormClass.Create(Application);
    aForm.Show;
  end
  else begin
    if aForm.WindowState = wsMinimized then
        aForm.WindowState := wsNormal;
    aForm.BringToFront;
  end;
end;

Para llamarlo así:

Código Delphi [-]
CreateOrRestoreForm(TForm(Form2), TForm2);

Saludos.

[jachguate]

Si ves el método que he propuesto, te darás cuenta que hay manera de evitar el moldeado de tipo en la llamada.

Hasta luego.

[[Chris]]

El moldeado es porque la declaración del procedimiento CreateOrRestoreForm a cambiado y ha quedado así:CreateOrRestoreForm(var aForm : TForm; aFormClass : TFormClass);

No sé que versión de Delphi usa, pero en la 7 no me deja compilar si no hago el moldeado ahora con la declaración Var.

Saludos.

[nelostanley]

Empezado por D&W

Gracias por la observación jachguate tienes toda la razón. Nunca había probado el código hasta después de lo que me comentastes. Ya lo he reparado -según yo-

Código Delphi [-]
Procedure TMainForm.CreateOrRestoreForm(var aForm : TForm; aFormClass : TFormClass);
Begin
if not Assigned(aForm) Then begin
aForm := aFormClass.Create(Application);
aForm.Show;
end
else begin
if aForm.WindowState = wsMinimized then
aForm.WindowState := wsNormal;
aForm.BringToFront;
end;
end;





Para llamarlo así:

Código Delphi [-]
CreateOrRestoreForm(TForm(Form2), TForm2);





Saludos.

Ante todo muchas gracias por su participacion, me hicieron menos ignorante en esto, les comento que me meti en tremendo lio por "optimizador". (tuve que cambiar varios kilos de lineas acomodando mi codigo a estas funciones hasta hace unos 10 minutos, sin contar el fin de semana. )

Pero viendolo por el lado amable valio la pena, me quedo con el codigo citado les cuento que se me ocurrio la misma.

Código Delphi [-]
 
procedure  TfrmPrincipal.CrearFormulario(FormClass : TFormClass; Form : TForm );
begin
  if not Assigned(Form) Then begin
    Form := FormClass.Create(Application);
    Form.Show;
  end
  else begin
    if Form.WindowState = wsMinimized then  Form.WindowState := wsNormal;
    Form.BringToFront;
  end;
end;

Notaran el Class al reves como otro amigo lo menciono mas arriba, pero a este servidor la solucion dada me parece perfecta porque sirve para child o modal y se puede hacer referencia a las instancias de los Form1.cualquiercosa y con eso yo soy feliz.

Tambien debo comentarles que buscando por ahi pille la funcion:

Código Delphi [-]
function FindShowForm(FormClass: TFormClass; const Caption: string): TForm;

... de los RX (componentes rusos... en los uses hay que ponerle el AppUtils) interesantes, que los baje y los instale pero funciona identico como las funciones propuestas para los child, pero me tope con el mismo problema al hacer referencia a Form1.cualquiercosa desde Form2.cualquiercosa

Código Delphi [-]
Form2.cualquiercosa := Form1.cualquiercosa

.... Aqui tambien les dejo otra funcion ....

Código Delphi [-]
  function   TfrmPrincipal.ShowForm(FormClass:   TFormClass;   const   Caption:   string):   TForm;
  var   
      I:   Integer;   
  begin   
      Result   :=   nil;   
      for   I   :=   0   to   Screen.FormCount   -   1   do   begin   
          if   Screen.Forms[i]   is   FormClass   then   
              if   (Caption   =  '' )   or   (Caption   =   Screen.Forms[i].Caption)   then   begin   
                  Result   :=   Screen.Forms[i];   
                  if   (Result.WindowState   =   wsMinimized)   then   Result.WindowState   :=   wsNormal;   
                  Break;   
              end;   
      end;   
      if   Result   =   nil   then   begin   
          Application.CreateForm(FormClass,   Result);   
  //         if   Caption   <>     then   Result.Caption   :=   Caption;   
      end;   
      Result.Show;   
  end;

Pero ya saben con cual me kedo.. Bregue un monton pero valio la pena.

Nuevamente mil gracias a todos.