TreeView控件使用方法

参考：https://wenku.baidu.com/view/2ea63d6393c69ec3d5bbfd0a79563c1ec5dad7d3.html?_wkts_=1693191391762&bdQuery=delphi7%E4%B8%ADTreeView%E7%94%A8%E6%B3%95

手动设计时添加一些固定的节点
点击控件的Items属性在打开的窗口，通过NewItem和NewSubItem添加项与子项，在右边可以设置每项显示的文本，
给每项设置图标
1. 先要添加一个ImageList控件，然后添加一些ico图标到ImageList中
2. 在TreeView的Images属性中选择这个ImageList
3. 再给每个节点设置为ico图标在ImageList中的序号，设为-1表不显示图标，
 注：SelectIndex为选中显示的图像，ImageIndex表默认显示的图像

使用代码的方法添加节点

//添加一个根节点
TreeView1.Items.Add(nil,Edit1.Text);

//给所先项添加一个同级节点
TreeView1.Items.Add(TreeView1.Selected,Edit1.Text);

//给所先项添加一个子节点
TreeView1.Items.AddChild(TreeView1.Selected,Edit1.Text);

//选择的节点文本
ShowMessage(TreeView1.Selected.Text);

//选择的节点序号
ShowMessage(IntToStr(TreeView1.Selected.Index)); //同级序号，以0开始
ShowMessage(IntToStr(TreeView1.Selected.AbsoluteIndex)); //绝对序号，从最顶部开始，包括所有子项，也是从0开始

//删除选择的节点
TreeView1.Items.Delete(TreeView1.Selected);

//树所有项个数
ShowMessage(IntToStr(TreeView1.Items.Count));

//所选子项个数
ShowMessage(IntToStr(TreeView1.Items[TreeView1.Selected.AbsoluteIndex].Count));

//修改所选节点文本
TreeView1.Items[TreeView1.Selected.AbsoluteIndex].Text:=edit1.Text;

//一次添加添加多个节点
var
  root_node,cur_node:TTreeNode;
begin
  root_node:=TreeView1.Items.AddFirst(nil,'root1');
  cur_node:=TreeView1.Items.AddChild(root_node,'root1_child1');
  TreeView1.Items.Add(cur_node,'root1_child2');
  root_node:=TreeView1.Items.Add(nil,'root2');
  TreeView1.Items.AddChildFirst(root_node,'root2_child1');
end;