Criar Propiedade em um Node de uma treeview

Delphi

12/11/2004

tem como criar uma nova propiedade em um Node de uma treeview?
alguem sabe como?

ps.: so serve a TTreeview mesmo


Latsilva

Latsilva

Curtidas 0

Respostas

E_gama

E_gama

12/11/2004

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...)


GOSTEI 0
POSTAR