--- Em delphi-br@yahoogrupos.com.br, Marcelo Moacir Florindo
<[EMAIL PROTECTED]> escreveu
> Senhores,
>
> Estou precisando montar uma treeview dinamicamente, ou seja,
> passo o dataset e mais alguns dados. Alguém teria como me ajudar??
>
> Um grande abraço a todos..
>
> Marcelo
Para colocar dados na árvore, eu crio sempre classes. Por exemplo:
type
TMeuObjeto = class
public
codigo: integer;
nome: string;
end;
Para jogar para a árvore:
var meuObjeto: TMeuObjeto;
node: TTreeNode;
MeuDataSet.Close;
MeuDataSet.Open;
while (not MeuDataSet.Eof) do
begin
meuObjeto = TMeuObjeto.Create;
meuObjeto.codigo := MeuDataSet.FieldByName('codigo').AsInteger;
meuObjeto.nome:= MeuDataSet.FieldByName('nome').AsInteger;
node := arvore.Items.AddChild(nil, meuObjeto.nome);
node.Data := meuObjeto;
MeuDataSet.Next;
end;
MeuDataSet.Close;
A proprieda Data é um ponteiro, então você pode criar seus objetos e
guardar tudo ali, se precisar.
Só não esqueça, ao limpar a árvore, de destruir os objetos...
Se não vão ficar na memória...
[]s.
--
<<<<< 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] ou [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
