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.