>strobjeto strprefijo StrClaseObjeto >--------------------- ---------- -------------------- >EdtResumen Edt editbox >ImgFoto Img image >LnkLink4 Lnk textbox >LnkLink5 Lnk textbox >LnkLink6 Lnk textbox >LnkLink1 Lnk textbox >LnkLink2 Lnk textbox >LnkLink3 Lnk textbox >>
>SELECT TmpObjetos >GO TOP >SCAN > SCATTER MEMVAR > m.strobjeto=ALLTRIM(m.strobjeto) > m.StrClaseObjeto=ALLTRIM(m.StrClaseObjeto) > m.strprefijo = ALLTRIM(m.strprefijo) > thisForm.AddObject(m.strobjeto,m.StrClaseObjeto) > IF m.strprefijo='edt' OR m.strprefijo='Edt' > comando = "thisform."+m.strobjeto+".width = thisform.Width" > &comando > comando = "thisform."+m.strobjeto+".top = thisform.top" > &comando > comando = "thisform."+m.strobjeto+".visible=.t." > &comando > ELSE > comando = "thisform."+m.strobjeto+".visible=.t." > &comando > ENDIF >ENDSCAN >>
i = 1 loTextBox = evaluate("ThisForm.TxtOpciones" + trans(i)) loTextBox.Top = i * 20 loTextBox.Visible = .T.Tal vez también te interese leer mis comentarios sobre grupos de objetos: FAQ #8110 (en inglés).