delphi動態生成樹(dxTreeView)

//delphi動態生成樹(dxTreeView)

{
  A
    1
    2
      list1
      list2
    3
  B
  C
}
procedure TForm1.TestTreeView;
var
  node1: TdxTreeNode;
  node2: TTreeNode;
  node3: TTreeNode;
begin
  dxTreeView1.Items.Clear;
  node1 := TdxTreeNode.Create(dxTreeView1.Items);
  node2 := TTreeNode.Create(nil);
  node2 := dxTreeView1.Items.Add(node1, 'A');

    dxTreeView1.Items.AddChild(node2, '1');
    //dxTreeView1.Items.AddChild(node2,'2');
    node3 := TTreeNode.Create(nil);
    node3 := dxTreeView1.Items.AddChild(node2, '2');
      dxTreeView1.Items.AddChild(node3, 'list1');
      dxTreeView1.Items.AddChild(node3, 'list2');
    dxTreeView1.Items.AddChild(node2, '3');

  dxTreeView1.Items.Add(node1, 'B');
  dxTreeView1.Items.Add(node1, 'C');

  dxTreeView1.FullExpand;
end;

轉載請註明出處：http://blog.csdn.net/cadenzasolo