Cara jeito bem simples de fazer isso
Type TDados = class Public Código: integer; Descrição: string End; Procedure qualquercoisa; Var Node: TNode; Dado: TDados; Begin Node := TreeView.Items.Add(nil, 'descricao do node'); Dado := TDados.Create; Node.data := Pointer(Dado); // seu dado está salvo ...... End; De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Satoy Matsuoka Enviada em: segunda-feira, 27 de agosto de 2007 08:45 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] TreeView Caro Davi, Em uma tabela geralmente existe o código e descrição, se vou usar o TreeView para mostrar e recupara dados, eu preciso da chave, que para meu conceito deve ser armazenado no TreeView, para quando eu estive selecionado nele, poder recuperar a minha chave. E como eu poderia fazer isso ??? Só que no TreeView eu não queria mostrar a chave, somente a descrição Grato []'s Satoy On 8/24/07, Davi Eduardo Borges Wall <[EMAIL PROTECTED] <mailto:davi.wall%40mult.com.br> > wrote: > > Cara, eu nem sabia que existia algum tipo de índice. > > Eu sempre utilizei TreeView carregada dinamicamente e para salvar "dados" > em um nó eu uso Node.Data > > Será esse o seu querido índice? > > De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > <delphi-br%40yahoogrupos.com.br> [mailto: > delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > <delphi-br%40yahoogrupos.com.br>] Em nome de > Satoy Matsuoka > Enviada em: sexta-feira, 24 de agosto de 2007 17:38 > Para: delphi-br > Assunto: [delphi-br] TreeView > > Bom dia pessoal, > > Com o componente TreeView, em tempo de desenvolvimento eu consigo colocar > um > Texto e um Indice ( Um texto e um valor). > Em tempo de execução eu não consigo ... ??? (ou não sei como) > Pois utilizo TreeView.itens.add( objeto, texto) > ou addfirst > ou addchild > > Não vejo ou não sei como colocar um índice !!! > Como poderia fazer isso ??? > > Grato > []'s > Satoy > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
