Fórum MDIForm e MDIChild #297729

Boa tarde,


Alguém sabe como corrigir o problema quando aparece a mensagem:

´cannot create form. no MDI forms are currently active´.


Na aplicação, o form principal esta definido como fsMDIForm, os demais estão definidos como fsMDIChild e no menu Project/Options o MainForm é o form principal.

Ao chamar os demais formulários utilizando a sintaxe abaixo

Execute( TfrmORC1110F , frmORC1110F );

É executada a procedure abaixo que está definida no formulário principal:


Procedure TfrmORC0000M.Execute(InstanceClass: TComponentClass; var Reference);
Var
iI: Integer;
formula : string;
Begin
// *** Verifica se ha instancia do form
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;


As telas Splash e de login estão funcionando corretamente.

Se alguém tiver alguma idéia desde já agradeço.


Airton