还是TreeView的问题。。。。

[thatsummer]

假设有一个节点名字为黑龙江。。。。
在程序中怎么实现将当前节点移动到黑龙江？
并在黑龙江下添加子节点？！

[ahanag]

var node1:Ttreenode;
begin
node1:=treeview1.Selected;
treeview1.Items.AddChild(node1,'asd');
end;//node1就是你选择的节点，在这个节点下添加'asd'节点

[thatsummer]

现在的问题是，在程序中怎么实现，让当前节点变为我想选择的节点？！

[elilor]

var
node1,node2:Ttreenode;
begin
node1:=treeview1.Selected;
node2:=treeview1.Items.AddChild(node1,'asd');
TreeView1.Items.Select(node2); //可能是这样

[thatsummer]

elilor(elilor)
你的方法不可以
：（（（

[linzer]

procedure TForm1.Button1Click(Sender: TObject);
var
iPos:integer;
Node:TTreeNode;
begin
for iPos:= 0 to TreeView1.Items.Count-1 do
begin
Node:= TreeView1.Items.Item[iPos];
if Node.Text='黑龙江'then
begin
TreeView1.Select(Node,[ssLeft]);
TreeView1.Items.AddChild(Node,'asd');
Break;
end;
end;
end;