with eval(oShowForm) .Show ... endwithCetin
>LPARAMETERS cForm >LOCAL oForm >oForm ='o' + cForm > >WITH THIS > oShowForm = '.' + oForm > TRY > &oShowForm..SHOW() && Fails the first time > CATCH > .ADDPROPERTY(oForm,NULL) > &oShowForm = CREATEOBJECT(cForm) > &oShowForm..ADDPROPERTY('oTreeMenu',This.oTreeMenu) && Add this form's ToolBar > &oShowForm..SHOW() > ENDTRY > .AddToStack(&oShowForm) > IF .WINDOWSTATE # 1 > .WINDOWSTATE = 1 > ENDIF >ENDWITH >>
>WITH THIS > IF VARTYPE(.oTreeMenu) = 'O' AND NOT ISNULL(.oTreeMenu) > TRY > .oTreeMenu.SHOW() > CATCH TO oException > ENDTRY > ENDIF >ENDWITH >>