Tengo un problema. No consigo cargar mi Form MDIChild. Tengo un padre del tipo fsMDIForm y otro fsMDIChild. Tengo esta procedure para crear los forms:
Código Delphi
[-]procedure TFRM_Principal.Lonily(InstanceClass: TComponentClass; var Reference);
var
iI: Integer;
begin
for iI := 0 to MDIChildCount - 1 do
begin
if MDIChildren[iI].ClassName = InstanceClass.ClassName then
begin
MDIChildren[iI].WindowState := wsNormal;
MDIChildren[iI].Show;
Exit;
end;
end;
Application.CreateForm( InstanceClass, Reference );
end;
Y los llamos asi:
Código Delphi
[-]Lonily(TFrmEmpresa,FrmEmpresa);
Pero el Form no carga en mi aplicativo. Que puede estar errado?
Yo tambien llamo sin la procedure pero no carga todavia. Gratos a todos desde ahora.