delphi动态生成树(dxTreeView)
来源:互联网 发布:淘宝手机连接转换 编辑:程序博客网 时间:2024/06/05 02:23
//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