Hola Lenny.
Me alegro que te haya servido lo que hemos escrito Federico, Santiago y yo.
Quisiera agregarte que se puede parametrizar la creación y muestra de ventanas MDIChild.
Mirá este procedimiento:
Código Delphi
[-]
procedure TMDIForm.CrearChild(ClassForm: TFormClass);
var
i: Integer;
begin
for i:= 0 to MDIChildCount do if Screen.Forms[i].ClassName = ClassForm.ClassName then begin
Screen.Forms[i].WindowState:= wsNormal; Screen.Forms[i].BringToFront; Exit; end;
with ClassForm.Create(nil) do Show; end;
Ejemplo de lamada:
El comportamiento por defecto al cerrarse de los Forms MDIChild, es minimizarse. Por lo que, si querés cerrarlos, deberás incluir esta línea en el evento OnClose de cada MDIChild:
Código Delphi
[-]
Action:= caFree; Nombre_del_form:= nil;
Espero que te ayude.
Saludos.