treeview如何调整节点的顺序？

Question

如题
--1
--2
--3
怎么用代码把2调到上面
变成
--2
--1
--3

Answer 1

procedure MoveDownNode(Node:TTreeNode);
var T:Ttreenode;
begin
  If Node=nil then exit;
  T:=Node.getNextSibling;
  if T=nil then exit;
  if T.getNextSibling=nil then Node.MoveTo(T,naAdd)
  else
     Node.MoveTo(T.getNextSibling,naInsert);
end;
procedure MoveUpNode(Node:TTreeNode);
var T:Ttreenode;
begin
  If Node=nil then exit;
  T:=Node.getPrevSibling;
  if T=nil then exit;
  Node.MoveTo(T,naInsert);
end;

Answer 2

严重同意楼上兄弟的！BTW，楼上的兄弟真是强啊！汗颜中，请勿打扰！

Answer 3

如果楼主要大量的结点要排序也不妨对数据先排序后再在treeview上绘制

Answer 4

jinjazz(近身剪（N-P攻略）) 的方法好象只能一个一个的往上或者往下移动阿！