紧急求救，如何用Delphi实现类似Windows资源管理器中左右两颗树节点的移动，删除？

Question

请教各位大侠，如何用Delphi实现类似Windows资源管理器中左右两颗树节点的移动，删除？每当移动一个节点时，其子结点也应当随之移动，具体递归时，该如何实现？

Answer 1

用treeview中的删除就是了

Answer 2

Procedure Nodecopy(TreeV: TTreeView; SNode,TNode:TTreeNode);
var
  newnode: ttreenode;
  i: integer;
begin
   newnode := treeV.items.addchildfirst(tnode,'');
   newnode.assign(snode);  //
  for i:=snode.count-1 downto 0 do
    nodecopy(treev,snode.items[i],newnode);
  treev.items.delete(snode);
end;