Buscar

Como inserir um item em uma treeview (run time)?

Código

Procedure TForm1.Button1Click(Sender: TObject);
var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { Remove qualquer node existente }
MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Adiciona o node raiz }
{ Adiciona um sub item no node adiciona anteriormente }
AddChild(MyTreeNode1,'ChildNode1');
{Adiciona outro node raiz}
MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
AddChild(MyTreeNode2,'ChildNode2');
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,'ChildNode2a');
Add(MyTreeNode2,'ChildNode2b');
Add(MyTreeNode1, 'RootTreeNode3');
end;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 13675 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009