[Lazarus-es] Consulta sobre TTreeView (ELMO CALATAYUD)

Jose Antonio Cuello josea en artextrading.com
Lun Jul 6 09:23:24 CEST 2009


Hola, los treeviews permiten añadir objetos a cada uno de los items, es 
decir tener un puntero a un objeto creado por ti en cada TTreeviewnode. 
Si combinas esto con un TListObject puedes crearte tus propias 
estructuras de datos y no solo tener una columna de datos sino tener 
todos los datos que quieras. Ponerte un ejemplo completo creo que sería 
algo extenso pero no hay problema si lo quieres te mando unas units para 
que las veas o publico un link o lo que sea.

El código para añadir un item sería:

TreeNode1 := Tree1.Items.AddChildObject( <Parent: TTreeNode>,  <Caption: 
String>, <Data: TPointer>);

Para acceder a los datos sólo tienes que acceder a la propiededad Data 
del Node que te interese.

(TreeNode1.Data as TMiObjeto)

y con esto recoges cualquier dato que te hayas montado en tu clase.

Espero te sirva.

Un saludo

> Message: 1
> Date: Sat, 4 Jul 2009 08:16:49 -0500
> From: ELMO CALATAYUD <e_calatayud en hotmail.com>
> Subject: [Lazarus-es] Consulta sobre TTreeView
> To: Lista Lazarus <lazarus-es en lists.lazarus.freepascal.org>
> Message-ID: <COL104-W220921C30411BBEB4341F2872D0 en phx.gbl>
> Content-Type: text/plain; charset="iso-8859-1"
>   
> // Para la Raiz
>
> TreeNode1:=Tree1.Items.add(nil, dbBusca.Fields[0].AsString+' '+dbBusca.Fields[1].AsString);
>
> // Dato Adicional de la Raiz
>
> Tree1.Items[Conta].SubItems.add(FormatFloat('0.00',Saldo)); 
>   




More information about the Lazarus-es mailing list