>octrl=.NULL. >Release octrl>
>>Scan for ordine > 0 >> oform.addObject('_l'+Transform(recno()),'Mylabel') >> oCtrl = Evaluate("oform."+'_l'+Transform(Recno())) >> oCtrl = Evaluate("oform."+'_l'+Transform(Recno())) >> oCtrl.autosize = .t. >> oCtrl.caption = Alltrim(wObjShow.descri) >> octrl.left = 10 >> octrl.top = lnTop + 3 >> octrl.visible = .t. >> lntop = octrl.top + octrl.height >> >> oform.addObject('_'+Transform(Recno()), Iif(Empty(wObjShow.codice),Alltrim(wObjShow.ctrl),'p'+Alltrim(wObjShow.ctrl))) >> oCtrl = Evaluate("oform."+'_'+Transform(Recno())) >> oCtrl.width = 100 >> octrl.left = 10 >> octrl.top = lnTop >> octrl.visible = .t. >> lntop = octrl.top + octrl.height >>*------------- >>* adding this line I haven't errors anymore >> Release octrl >>*------------- >>EndScan >>>>
>>>CLEAR PROGRAM >>>CLEAR CLASS ... >>>>>>
>>>>lcString = myDefineCode >>>>=strtofile(lcstring,MyFlyProc,0) >>>>lcMemSet = set('procedures') >>>>compile MyFlyProc >>>>set procedure to MyFlyProc additive >>>> >>>>* excute my code which refers to defined object >>>>release procedure MyflyProc >>>>set procedure to (lcMemSet) >>>>* >>>>erase MyflyProc >>>> >>>>>>>>