.oParam >.ParentForm>
** Form.Init >lparameters toParam >If Vartype(toParam) = "O" And Not Isnull(toParam) > .oParam = toParam > .Parentform = toParam.Parentform >EndIf >>
** Form.DoForm >Lparameters tcFormName, tcParameter > >**----------------------------------------------------------------------- >** Add the parent form to the parameter, or make a new one if it doesn't >** exist >**----------------------------------------------------------------------- >Local oParam >If pcount() > 1 > ** Add thisform to the parameter > oParam = tcParameter > oParam.ParentForm = This >Else > oParam = Newobject('parObject', 'fk_framework') > oParam.ParentForm = This >Endif > >If Type("GoApp.Name") = "C" > ** When the app is up and running > GoApp.DoForm(tcFormName, oParam, tlNoMultipleInstances) >Else > ** When we are just running the form from the IDE > FormToCall = "forms/" + tcFormName > Do Form (FormToCall) With (tcParameter) >endif >>
thisform.doForm("someChildFormsName")>