if not Assigned(cxDBTreeList1.FocusedNode) then Exit;
// 上移方法：
with cxDBTreeList1 do
FocusedNode.MoveTo(FocusedNode.getPrevSibling, tlamInsert);
// 下移方法：
with cxDBTreeList1 do
FocusedNode.getNextSibling.MoveTo(FocusedNode, tlamInsert);
TcxTreeList 节点 上移 下移 代码,布布扣,bubuko.com
原文：http://blog.csdn.net/kevinzhaoyp/article/details/38233647