Disponer de una propiedad tipo 'Tag' en los nodos de un TreeView

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 25/12/99

Truco accedido 70 veces

En los nodos de un TreeView no disponemos de la socorrida propiedad 'Tag', pero sí que disponemos de la propiedad Data, que en un principio está prevista para almacenar un puntero hacia algo. Para usarla como si de una propiedad Tag se tratase, es decir, de un integer, basta con que usemos typecasting:

Ejemplos:

Meter un 13 en el Data del nodo de un TreeView:

       TreeView1.Items[1].Data:=Pointer(13);

Es decir, hacemos el typecasting Pointer(13) para convertir nuestro integer a un pointer.

Para recuperar el Data como Integer:

 var
   Numero:integer;

 begin
   Numero:=Integer ( TreeView1.Items[1].Data );
 end;