Criar Propiedade em um Node de uma treeview

Question

tem como criar uma nova propiedade em um Node de uma treeview?alguem sabe como?ps.: so serve a TTreeview mesmo...

E_gama · Answer

Para criar uma nova propriedade voc� teria que criar um novo componente descendente...

N�o sei o que deseja, mas quando eu preciso armazenar algumas informa��es �a mais� em TreeNode, eu utilizo o propriedade �data�.
O �nico detalhe � que � preciso trabalhar com �ponteiros�.

exemplo:

type TDados = record
       Codigo: Integer;
       Nome  : string;
     end;

...

var D1: ^TDados;

...

  // Armaneza dados
  New(D1);
  D1^.Codigo := 1;
  D1^.Nome   := �Primeiro Nome�;

  MeuTreeView1.Items.AddObject(nil, D1^.Nome, D1);

  ...

  // Recuperar os dados...
  var D2: TDados;

  ...

  D2 := TDados(MeuTreeView1.Selected.Data^);
  Label1.Caption := IntToStr(D2.Codigo);
  Label2.Caption := D2.Nome;

  ...

Apesar eu ter utilizado um ponteiro para uma estrutura particular, posso utilizar o mesmo recurso para armazenar qualquer tipo de objeto (Dataset�s, fields, etc...)

F�rum Criar Propiedade em um Node de uma treeview #258274