Sign in Join

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

Mailing lists / lazarus-es / 2009-07

Consulta sobre TTreeView (ELMO CALATAYUD)

1 message · 1 person ·

Reply by email Subscribe to this list Your subscription

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

Jose Antonio Cuello

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

Show quoted text 16 lines
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));

Reply by email