请问如何移动TTreeView中的NodeItem到树形列表中的其他位置？ --解决立即送分

[xtge]

可能很菜的一个问题。怎么把一个节点（叶节点也行）移到其他位置。似乎没有函数，我想不出怎么移动。不会是新生成一个NodeItem，然后把它的各种属性改的和原来的一样吧。我有好多指针呀，如果要操作多个节点，岂不是累惨了（是计算机，不是我， ：） ）。

[xtge]

啊？很难吗？Up一下

[taxi]

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := true;
end;

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
Node: TTreeNode;
begin
Node := TreeView1.GetNodeAt(x, y);
if Node <> nil then
TreeView1.Selected.MoveTo(Node, naAddChild)
else
TreeView1.Selected.MoveTo(Node, naAdd);
end;

[taxi]

其中TreeView1.Selected.MoveTo(Node, naAddChild)这一句中的第二个参数可以改，以达到不同的效果，具体怎么必看帮助吧。

[MouseBrother]

Treeview 的Dragmode属性设为dmAutomatic然后
在执行taxi(游少爷)的程序

[taxi]

哎，这不应该会扣分吧。

[xtge]

辛苦大家了，我给分时，他说改问题的分数已经给出，请查证，但是我刷新了看还没分呀。我的机器这几天怎么老出毛病？！

[xtge]

当然不会了，但是，论坛加分就出错误。等我加分成功...