Optimizando Creación de Formularios MDI

[nelostanley]

Hola Gente,

Ando ya varios dias buscando pero no con mucha suerte algo referente a una duda que tengo en esto de las aplicaciones MDI.

Todo esta ok con referente al formulario padre e hijos, llamados, liberacion de memoria etc, funciona de 10, pero mi aplicación tiene como 30 Forms child y a la hora del llamado es algo engorroso a lo cual se viene mi duda de tener una funcion o procedimiento que me pueda crear mis formularios child ya establecidos.

Llamo a los formularios de la sgte forma:

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;

Ahora me entenderan de poner todo eso en los mas de 30 onlclick para llamar a los Forms que tengo en la aplicacion, por eso me parece que un procedimiento .....

Código Delphi [-]
       LlamarFormularioChild(NombreForm) ;

.... seria mucho más practico pero nose como hacerlo.

Pero de tanto revisar me encontre algo :

Código Delphi [-]
procedure TfrmParent.CrearVentanaMDIHija(Nombre: string);
begin
  LockWindowUpdate(Handle);
  with TFrmChild.Create(Self) do
  begin
    Caption := Nombre;
    if FileExists(Nombre) then
      reMain.Lines.LoadFromFile(Nombre);
    reMain.Modified := False;
    WindowState := wsMaximized;
  end;
  LockWindowUpdate(0);
end;

Pero no logro acoplarlo a mi codigo, porque el parametro es un string y mi frmC1 es un objeto TfrmC1.

Nota: Uso D7.

De antemano muchas gracias.

[[ElDioni]]

Creo que la instruccion FindComponent podría serte de ayuda para lo que quieres hacer, espero que así sea. puedes ver ejemplos de su utilización en estos hilos:

http://www.clubdelphi.com/foros/show...=FindComponent

http://www.clubdelphi.com/foros/show...=FindComponent

http://www.clubdelphi.com/foros/show...=FindComponent

Un saludo.

[nelostanley]

Esto de optimizar me parece complicado, revise tus hilos recomendados pero ninguno llena la expectativa, lo mio es aparentemente simple una funcion que cree los Form child, dichos form ya tiene sus componentes objetos etc.

De antemano muhas gracias.

[[jcarteagaf]]

Yo uso la siguiente funcion

Código Delphi [-]
function ShowForm(TfrmClass: TFormClass) : boolean;
begin
  with TfrmClass.Create(Application) do
  begin
    result := ShowModal = mrOk;
    Free;
  end;
end;

Y la llamo asi

ShowForm(tfrmVentas);

Se que son para ventanas modales pero podrias acomodarlas para MDI.

Saludos

[[Lepe]]

Yo uso una pequeña variante de jcarteagaf. Al hacerlo así, tenemos que añadir los "uses" de la ventana que queremos crear; con el tiempo y muchos Forms hijos, acabamos con referencias circulares y un dolor de cabeza.

Código Delphi [-]
type TOpen = (oCliente, oFactura, oProductos);

var  OpenForm : Array [TOpen] of TForm = (TFrmcliente, TfrmFactura, TFrmProductos);

function ShowForm(Abrir : TOpen) :TForm;
begin
 Result := TForm(OpenForm(Abrir)).Create(Application)
end;

El tipo "TOpen" lo añado a una unidad publica.pas (sin form asociado), todas las ventanas hacen uso de ella.

Cada ventana hija, tiene en el Onclose Action := cafree, por lo que se libera de memoria. Tampoco uso las variables globales FrmCliente, FrmFactura que propone delphi.

Saludos

[[maeyanes]]

Hola...

Yo uso un procedimiento como este:

Código Delphi [-]
procedure ShowMDIChildForm(AFormClass: TFormClass);
var
  I: Integer;
  AForm: TForm;

begin
  for I := 0 to Pred(Application.MainForm.MDIChildCount) do
  begin
    AForm := Application.MainForm.MDIChildren[i];
    if AForm is AFormClass then
    begin
      if IsIconic(AForm.Handle) then
        ShowWindow(AForm.Handle, SW_RESTORE);
      AForm.BringToFront;
      Exit
    end
  end;
  AFormClass.Create(nil)
end;

Saludos...