* Code segments from 1001 Things, used without permission *** Create the Parameter Object oParams = NEWOBJECT( "xParam", "genclass.vcx" ) WITH oParams *** First the Instance Name .AddProperty( 'cInsName', lcFmName ) *** Add a property count .AddProperty( 'nParamCount', lnFormParams ) *** Add any additional parameters to be passed to the form IF lnFormParams > 0 FOR lnCnt = 1 TO lnFormParams lcPName = "tuParm" + ALLTRIM(STR(lnCnt)) .AddProperty( lcPName, &lcPName ) NEXT ENDIF ENDWITHFrom 10.4.1, I think this is the init() of the form itself (not the form class)...the parameters are retreived from toParams.tuParm1, 2, etc:
LPARAMETERS toParams *** Extract Instance name from the parameter object IF VARTYPE( toParams ) = 'O' AND PEMSTATUS( toParams, 'cInsName', 5 ) *** Pass Instance Name up to parent class method DODEFAULT( toParams.cInsName ) IF toParams.nParamCount > 0 thisform.property1 = toParams.tuParm1 && grab parameters here... thisform.property2 = toParams.tuParm2 *** Extract additional parameters named as "tuParm1" through "tuParmn" ENDIF ELSE *** No Instance Name specified *** Take whatever action is appropriate at the time ENDIF *** Do whatever else is needed hereIs that what you are looking for?