可用分押宝游戏火热进行中...	专题改版：Java Web 专题

treeview，选中某一节点时，怎样建下一级节点？？

楼主regft（）2004-12-03 18:08:31 在 Delphi / VCL组件开发及应用提问

treeview，选中某一节点时，怎样建下一级节点？？

A
1
2
3
b
1
2
dd

选中dd时，button建下一级节点? 问题点数：30、回复次数：13Top

1 楼regft（）回复于 2004-12-03 18:18:14 得分 0

BUTTON2事件，怎样把选中的节点位转眼向下移动？
A
1
2
3

选中1时，button2把1移到2下面。
A
2
1
3

Top

2 楼Rail100（杀神之狙)(能忘掉结果，未能忘记遇上）回复于 2004-12-03 18:19:04 得分 0

if TreeView1.Selected <> nil then
TreeView1.Selected.AddChild();
没开DELPHI,大概的操作如此Top

3 楼myhgyp（也许是这样的，信不信由你）回复于 2004-12-03 18:26:45 得分 0

if TreeView1.Selected <> nil then
ChildNode := TreeView1.Items.AddChild(Node, FieldByName(DispField).asString)
else
ChildNode := TreeView1.Items.AddChild(Node, '未知');
如要实现下移功能，要采用其它方法了，如树节点内容在数据库中保存时采用一个Sort字段控制，选中该节点后调整SORT值，刷新树节点Top

4 楼smiler007（笑一笑）回复于 2004-12-03 19:38:03 得分 0

建议用AddChildObject()Top

5 楼imacih（）回复于 2004-12-03 19:45:45 得分 0

TreeView1.Items.AddChild(parentNode, curNodeText);
TreeView1.Items.AddChildObject(parentNode, curNodeText, curNodeData);
Top

6 楼shunbing（）回复于 2004-12-03 19:48:01 得分 0

if TreeView1.Selected <> nil then
ChildNode := TreeView1.Items.AddChild(Node, FieldByName(DispField).asString)
else
ChildNode := TreeView1.Items.AddChild(Node, '未知');Top

7 楼mastersky（浪）回复于 2004-12-03 20:45:26 得分 0

第一个问题：
if TreeView1.Selected<>nil then
TreeView1.Items.AddChild(TreeView1.Selected,'节点的值');
Top

8 楼g961681（技术庸人(情商太低)）回复于 2004-12-03 20:52:35 得分 0

TreeView1.Items[].MoveTo(Destination, Mode);
其中，Destination为节点
Mode可以取
naAdd Adds the node to the end of the list.
naAddFirst Adds the node at the beginning of the list.
naAddChild Adds the node as a child of the destination at the end of the child list.
naAddChildFirst Adds the node as a child at the beginning of the child list of the destination.
naInsert Insert the node before the destination node.Top

9 楼g961681（技术庸人(情商太低)）回复于 2004-12-03 20:53:16 得分 0

这样可以实现移动！Top

10 楼mastersky（浪）回复于 2004-12-03 20:57:28 得分 0

第二个问题：
var
X:TTreeNode;
Y:TTreeNode;
begin
if TreeView1.Selected<>nil then
begin
Y:=TreeView1.Selected;
X:=Y.getNextSibling;
if X<>nil then
begin
if X.getNextSibling<>nil then
TreeView1.Items.Insert(X.getNextSibling,Y.Text)
else TreeView1.Items.Add(X,Y.Text);
Y.Delete;
end;
end;
end;
Top

11 楼mastersky（浪）回复于 2004-12-03 23:47:23 得分 0

第二个问题：
var
X:TTreeNode;
Y:TTreeNode;
begin
if TreeView1.Selected<>nil then
begin
Y:=TreeView1.Selected;
X:=Y.getNextSibling;
if X<>nil then
begin
if X.getNextSibling<>nil then
X:=TreeView1.Items.Insert(X.getNextSibling,Y.Text)
else X:=TreeView1.Items.Add(X,Y.Text);
Y.Delete;
X.Selected:=True;
end;
end;
end;
Top

12 楼mastersky（浪）回复于 2004-12-04 17:40:12 得分 30

向上移动:

var
X:TTreeNode;
Y:TTreeNode;
begin
if TreeView1.Selected<>nil then
begin
Y:=TreeView1.Selected;
X:=Y.getPrevSibling;
if X<>nil then
begin
X:=TreeView1.Items.Insert(X,Y.Text);
Y.Delete;
X.Selected:=True;
end;
end;
end;
Top

13 楼regft（）回复于 2004-12-05 13:43:57 得分 0

mastersky(浪)

谢谢！！！1Top