Fórum Como clonar um nó (com nós filhos) num Treeview? #272407

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;