Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2010-06

tobjectlist

4 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

christian Ortiz

cambiando un poco mi codigo a sujerencia

en vez de crear mis componentes dinamicamente como arrays, me aconsejaron trabajar con TobjectList, que definitivamente lo veo mejor, solo tengo un problema, haber su alguien puede darme una manito:

Como puedo crear un TobjectList dentro de otro, me explico mejor

tengo

type lstObj = Tobjectlist
type lstObjSon = Tobjectlist

procedure ...
begin
    lstObj := Tobjectlist.create(true)
    lstObjSon :=Tobjectlist.create(true)
   //funciona bien si se hace
   lstObj.add(Tpanel.create())
  //no funciona y es lo q necesito
  lstObjSon.add(Tobjectlist.create(true))
end

alguna idea amigos??

Christian ------------ pr�xima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100617/0bed3bf9/attachment.html>

Reply by email

José Mejuto
to christian Ortiz

Hello christian,

Thursday, June 17, 2010, 5:37:08 PM, you wrote:

cO> cambiando un poco mi codigo a sujerencia
cO> en vez de crear mis componentes dinamicamente como arrays, me aconsejaron cO> trabajar con TobjectList, que definitivamente lo veo mejor, solo tengo un cO> problema, haber su alguien puede darme una manito: cO> Como puedo crear un TobjectList dentro de otro, me explico mejor cO> type lstObj = Tobjectlist
cO> type lstObjSon = Tobjectlist
cO> procedure ...
cO> begin
cO> lstObj := Tobjectlist.create(true)
cO> lstObjSon :=Tobjectlist.create(true)

cO> //funciona bien si se hace
cO> lstObj.add(Tpanel.create())

cO> //no funciona y es lo q necesito
cO> lstObjSon.add(Tobjectlist.create(true))
cO> end
cO> alguna idea amigos??

"No funciona" es un poco vago, no funciona por que da error de .... ?

Por qu� necesitas lstObjSon ?

Best regards, Jos�

Reply by email

christian Ortiz
to José Mejuto

El 17 de junio de 2010 12:05, Jos� Mejuto <joshyfun en gmail.com> escribi�:

Show quoted text 28 lines
Hello christian, Thursday, June 17, 2010, 5:37:08 PM, you wrote: cO> cambiando un poco mi codigo a sujerencia cO> en vez de crear mis componentes dinamicamente como arrays, me aconsejaron cO> trabajar con TobjectList, que definitivamente lo veo mejor, solo tengo un cO> problema, haber su alguien puede darme una manito: cO> Como puedo crear un TobjectList dentro de otro, me explico mejor cO> type lstObj = Tobjectlist cO> type lstObjSon = Tobjectlist cO> procedure ... cO> begin cO> lstObj := Tobjectlist.create(true) cO> lstObjSon :=Tobjectlist.create(true) cO> //funciona bien si se hace cO> lstObj.add(Tpanel.create()) cO> //no funciona y es lo q necesito cO> lstObjSon.add(Tobjectlist.create(true)) cO> end cO> alguna idea amigos?? "No funciona" es un poco vago, no funciona por que da error de .... ?

en reliadad tobjectlist no puede tner elementos de el mismo, encontre el error en si

Por qu� necesitas lstObjSon ?

creo componentes en ejecucion con varios otros componentes que se anclan.

Solucione el problema creanto

Tlist( de Tobjectlist)

gracias

Show quoted text 11 lines
-- Best regards, Jos� _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
Christian ------------ pr�xima parte ------------ Se ha borrado un adjunto en formato HTML... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100617/8bb2f1e1/attachment.html>

Reply by email

José Mejuto
to christian Ortiz

Hello christian,

you wrote
> "No funciona" es un poco vago, no funciona por que da error de .... ?

cO> en reliadad tobjectlist no puede tner elementos de el mismo, encontre el cO> error en si

TObjectList puede tener cualquier descendiente de TObject, o sea, todos, incluido TObjectList.

> Por qu� necesitas lstObjSon ?

cO> creo componentes en ejecucion con varios otros componentes que se anclan. cO> Solucione el problema creanto
cO> Tlist( de Tobjectlist)

Cuando tengas un control/componente con otros componentes dentro a�ades un TObjectList y a ese TObjectList le a�ades lo controles internos, al estilo �rbol.

Otra cosa es que asumas en partes del c�digo que todo lo que tienes en la lista desciende de TControl, en ese caso es evidente que TObjectList te va a fallar.

Best regards, Jos�

Reply by email