加根节点obj1:= treeview.Items.Add(nil,HeadStr); 从表中读数据加子节点 adods.First; while not adods.Eof do begin obj2:=treeview.Items.AddChild(obj1, adods.Fields.Fieldbyname(fstr1).AsString); str1:=adods.Fields.Fieldbyname(fstr1).AsString; adods.Next; obj1.Expanded:=true; end;
TreeView1.Items.Add(ParentNode,'abc')
TreeView1.Items.AddChild(ParentNode,'abc')
从表中读数据加子节点
adods.First;
while not adods.Eof do
begin
obj2:=treeview.Items.AddChild(obj1, adods.Fields.Fieldbyname(fstr1).AsString);
str1:=adods.Fields.Fieldbyname(fstr1).AsString;
adods.Next;
obj1.Expanded:=true;
end;
增加接点
Node:=Treeview1.Items.Add(nil,'顶接点')
Treeview1.Items.Add(Node,'子接点');
treeview1.Selected返回选中接点