TreeNode

Delphi

27/10/2005

Bom dia a todos,

Como faço para inserir um novo item em um TreeView ? Se trata de um plano de contas. O TreeView é baseado em uma tabela. Quando um novo registro é inserido (uma nova conta), comando um clear e uma nova mantagem da árvore. Funciona, más eu gostaria de não precisar montar a arvore novamente e sim adicionar o novo ítem na árvare assim que acontecesse o post na tabela.

Desde já agradeço.


Zangado

Zangado

Curtidas 0

Respostas

Zangado

Zangado

27/10/2005

Ninguém sabe ???


GOSTEI 0
Zangado

Zangado

27/10/2005

Estou usando no afterpost da tabela:

procedure TT_PlanoContaCaixa.dbPlanoAfterPost(DataSet: TDataSet);
Node : TTreeNode;
begin

ArvorePlano.Items.AddChild(Node, dbPlano.FieldByName(´Conta´).AsString);

end;

Más recebo a mesagem: ´Não é possível introduzir um étem!´.

Se alguém puder ajudar... agradeço.


GOSTEI 0
Lehapan

Lehapan

27/10/2005

Se vc estiver colocando o primeiro nodo, então coloca:

ArvorePlano.Items.Add([b:0e425984fe]nil[/b:0e425984fe], ´Pai´);

Para incluir os filhos então vc deve colocar:

NodoPai : TTreeNode;

NodoPai := ArvorePlano.Items.Item[0];

ArvorePlano.Items.AddChild(NodoPai, ´Filho1´);
ArvorePlano.Items.AddChild(NodoPai, ´Filho2´);
ArvorePlano.Items.AddChild(NodoPai, ´Filho3´);

Qualquer dúvida fale


GOSTEI 0
POSTAR