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

Question

treeview，选中某一节点时，怎样建下一级节点？？
A
  1
  2
  3
b
  1
  2
  dd
选中dd时，button建下一级节点?

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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.

Answer 8

第二个问题：
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;

Answer 9

第二个问题：
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;

Answer 10

向上移动: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;