关于TreeView的有关问题,请帮忙
关于TreeView的问题,请帮忙
1.treeView如何在指定根下面添加一个节点?
比如已经有如下根节点
A
-A1
-A2
B
-B1
-B2
C
现在想在C下面也加子节点,怎么加?怎么把TreeView定位到C这个根上?
2.选择TreeView中的A1,A2,是ID是0和1吗?B1,B2,的ID也是0和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;
1.treeView如何在指定根下面添加一个节点?
比如已经有如下根节点
A
-A1
-A2
B
-B1
-B2
C
现在想在C下面也加子节点,怎么加?怎么把TreeView定位到C这个根上?
2.选择TreeView中的A1,A2,是ID是0和1吗?B1,B2,的ID也是0和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;