Como clonar um nó (com nós filhos) num Treeview?

Delphi

15/03/2005

Pessoal, mais uma de Treeview... tá me ferrando este componente!

Tomando-se como referência um nó qualquer do Treeview, preciso saber como pode ser feito para criar outro nó idêntico. Como se fosse um clone do nó tomado como referência.

Alguém pode me ajudar em mais essa?

wbb


Wbb

Wbb

Curtidas 0

Respostas

Wbb

Wbb

15/03/2005

Resolvido com um função recursiva:

function CopyNodes(NodeFrom, NodeTo: TTreeNode): Boolean;
Var i: Integer;
begin
   Result := False;

   try
      tvConfigura.Items.AddChild(NodeTo, NodeFrom.Text);

      NodeTo := NodeTo.Item[NodeTo.Count -1];

      if NodeFrom.HasChildren then 
         for i:= 0 to NodeFrom.Count -1 do
            CopyNodes(NodeFrom[i], NodeTo);
   except on e: exception do
      begin
         Result := false;
         MessageDlg(´Erro ao gravar log: ´ + e.message, mtError, [mbOk], 0);      end;
   end;
end;



GOSTEI 0
POSTAR