*form:init() for lnI = 1 to thisform.Something for lnJ = 1 to thisform.SomethingElse lcNom_lbl = "lbl_rv_" + alltrim( str( lnI)) + "_" + alltrim( str( lnJ)) lcAddObject = "thisform.AddObject( '" + lcNom_lbl + "', '_xlabel')" &lcAddObject endfor endfor *form:label_Click() LPARAM oLabel ?oLabel.name * new class define class _xlabel as label cHookClick="Thisform.label_Click(This) procedure Click() =IIF(EMPTY(cHookClick),.T.,EVAL(This.cHookClick)) endproc enddefineMartinJ
>for lnI = 1 to thisform.Something > for lnJ = 1 to thisform.SomethingElse > lcNom_lbl = "lbl_rv_" + alltrim( str( lnI)) + "_" + alltrim( str( lnJ)) > > lcAddObject = "thisform.AddObject( '" + lcNom_lbl + "', 'label')" > &lcAddObject > endfor >endfor >>