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 he aplicado el codigo que me diste de la siguiente forma:
izq = thisform.container3.Left + 5 upp = thisform.container3.top NewUpp = upp SELECT TmpObjetos GO TOP pos=RECNO() DO WHILE pos<=RECCOUNT() GO pos SCATTER MEMVAR m.strobjeto=ALLTRIM(m.strobjeto) + trans(pos) m.StrClaseObjeto=ALLTRIM(m.StrClaseObjeto) m.strprefijo = ALLTRIM(m.strprefijo) thisForm.AddObject(m.strobjeto,m.StrClaseObjeto) CadenaObjeto = "ThisForm." + m.strobjeto Objeto = evaluate(CadenaObjeto) Objeto.left = izq Objeto.width = thisform.container3.Width - 10 Objeto.Top = NewUpp + upp NewUpp = NewUpp + Objeto.height + 5 Objeto.visible = .t. pos = pos + 1 ENDDOEsto me crea los objetos y me los coloca uno debajo de otro, mi pregunta ahora es, como hago cuando debo crear muchos objetos sabiendo que no me caben en el form?