Re: Crear Objetos de forma dinamica Thread #1296115 Message #1296238

Gracias Hilmar, con tu codigo ya no tengo que hacer Macrosustitucion.

he sacado mi cursor:

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

Y 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
ENDDO

Esto 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?
Es decir, si en mi cursor hay 30 objetos y en mi form solo cabe la mitad?