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 textboxY construyo los objetos asi:
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 ENDSCANPero me quedan en desorden.