关于TreeView的问题，请帮忙

Question

1.treeView如何在指定根下面添加一个节点？
比如已经有如下根节点
    A
      -A1
      -A2
    B
      -B1
      -B2
    C现在想在C下面也加子节点，怎么加？怎么把TreeView定位到C这个根上？2.选择TreeView中的A1，A2，是ID是0和1吗？B1，B2，的ID也是0和1吗?谢谢

Answer 1

1、procedure TForm1.Button1Click(Sender: TObject);
var
  Node : TTreeNode;
  I : integer;
begin
  Node := nil;
  for I := 0 to TreeView1.Items.Count-1 do
    if TreeView1.Items[I].Text = 'C' then
      Node := TreeView1.Items[I];
  if Node <> nil then TreeView1.Items.AddChild(Node, 'Test');
end;

Answer 2

2、有一个Index属性，你可以选中某个节点，然后用下面的代码自己看一下：procedure TForm1.Button2Click(Sender: TObject);
begin
   ShowMessage(IntToStr(TreeView1.Selected.Index));
end;

Answer 3

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssRight in Shift) and (TreeView1.Selected.Parent<> nil) then
    TreeView1.PopupMenu := PopupMenu1 else TreeView1.PopupMenu := nil;
end;

Answer 4

把上面代码的(ssRight in Shift) 改成  (Button = mbRight) 也行

Answer 5

先选中C结点然后直接点subitems就可以了