Alexandre,
O TTreeNode tem uma propriedade Data, que é um ponteiro que pode receber
qualquer objeto que você instancie na sua aplicação. Você pode, por exemplo,
criar a seguinte classe :
type
TPessoa = class(TPersistent)
private
FNome: String;
FIdade: Integer;
procedure SetNome(Value: String);
procedure SetIdade(Value: Integer);
published
property Nome: String read FNome write SetNome;
property Idade: Integer read FIdade write SetIdade;
end;
Na implementação do seu código, pode fazer a seguinte operação:
procedure AssociaPessoaAoNo;
var
Pessoa: TPessoa;
begin
Pessoa := TPessoa.Create();
Pessoa.Nome := 'Geraldo';
Pessoa.Idade := 45;
TreeView1.item[0].Data := Pessoa;
end;
Para verificar se existe uma pessoa associada ao nó e acessar os dados da
pessoa:
if (TObject(TreeView1.item[0].Data) <> nil) and
(TObject(TreeView1.item[0].Data) Is TPessoa) then
ShowMessage('Nome: ' + TPessoa(TreeView1.item[0].Data).Nome + ' Idade: ' +
IntToStr(TPessoa(TreeView1.item[0].Data).Idade));
Desculpe qualquer erro de digitação porque fiz o código no E-mail mesmo ...
Atenciosamente,
Danilo Valente
----- Original Message -----
From: Alexandre M. S. Macedo
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, October 03, 2006 1:39 AM
Subject: [delphi-br] Criar nova propriedade no treeview
Olá a Todos,
Estou precisando que o treeview tenha mais uma propriedade em seu
nó. Exemplo: TreeView1.item[0].Novapropriedade
Fico grato por qq ajuda.
[]´s
Alexandre
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
