procedure TForm1.Button1Click(Sender: TObject); var newNode: TTreeNode; begin newNode := TreeView1.Items.Add(nil, 'New Node'); end;
上述代码会在按钮点击事件中添加一个名为“New Node”的新节点。其中参数nil指定父节点为根节点（因为新节点没有父节点），而方法将返回新节点的TTreeNode对象。 插入节点 插入节点与添加节点有些不同。我们需要使用另一个重载方法，该方法接收两个参数：要插入的节点对象及其父节点。procedure TForm1.Button2Click(Sender: TObject); var parentNode, newNode: TTreeNode; begin parentNode := TreeView1.Items.GetFirstNode; newNode := TreeView1.Items.Insert(parentNode, 'New Node'); end;
上述代码会在TreeView控件中的第一个节点之前插入一个名为“New Node”的新节点。其中，我们首先获取TreeView控件的第一个节点，然后使用Insert方法在该节点之前插入新节点。 删除节点 TreeView控件提供了一个非常方便的方法用于删除节点，即TTreeNode的Delete方法：procedure TForm1.Button3Click(Sender: TObject); var node: TTreeNode; begin node := TreeView1.Selected; if Assigned(node) then node.Delete; end;
上述代码会删除所选的TreeView节点。我们首先使用TreeView的Selected属性获取当前选定的节点，然后调用其Delete方法来删除该节点（前提是该节点存在）。 移动节点 最后，我们介绍如何移动树节点。可以使用TTreeNode的MoveTo方法将节点从一个位置移动到另一个位置。该方法需要一个目标节点、一个位置选项和一个是否强制展开选项：procedure TForm1.Button4Click(Sender: TObject); var node, parentNode: TTreeNode; begin node := TreeView1.Selected; parentNode := node.Parent; if Assigned(node) and Assigned(parentNode) then begin node.MoveTo(parentNode, naInsert); parentNode.Expand(True); end; end;
上述代码会将选中的节点移动到其父节点中，并在父节点之前插入。我们首先使用Treeview的Selected属性和节点对象的Parent属性获取所选的节点和其父节点。然后调用其MoveTo方法将该节点移动到其父节点下，同时将其父节点展开。 常用技巧 TreeView控件提供了许多属性和事件，下面介绍其中的一些常用技巧。 多选节点 TreeView控件提供了MultiSelect属性，允许选择多个节点。当MultiSelect属性为True时，用户可以按下Ctrl或Shift键选择多个节点。procedure TForm1.Button5Click(Sender: TObject); begin TreeView1.MultiSelect := not TreeView1.MultiSelect; end;
上述代码会在按钮单击事件中切换TreeView控件的MultiSelect属性。如果该属性当前为False，则启用多选；如果该属性当前为True，则禁用多选。 展开节点 如果我们需要在TreeView控件中展开所有节点，可以使用TreeView控件的FullExpand方法：procedure TForm1.Button6Click(Sender: TObject); begin TreeView1.FullExpand; end;
上述代码会在按钮单击事件中展开TreeView的所有节点。FullExpand方法将递归性的将TreeView控件下的所有子节点展开。 折叠节点 如果我们需要折叠TreeView控件中的所有节点，可以使用TreeView控件的FullCollapse方法：procedure TForm1.Button7Click(Sender: TObject); begin TreeView1.FullCollapse; end;
上述代码会在按钮单击事件中折叠TreeView的所有节点。FullCollapse方法将递归性的将TreeView控件下的所有子节点折叠。 节点排序 如果我们希望TreeView控件中的节点按照字母顺序进行排序，可以使用TreeView控件的SortType属性：procedure TForm1.Button8Click(Sender: TObject); begin TreeView1.AlphaSort; end;
上述代码会在按钮单击事件中使用AlphaSort方法对TreeView的节点进行排序。该方法基于节点文本内容按字母顺序进行排序。 总结 本文对Delphi TreeView控件的基本使用方法和常用技巧作了简单介绍。通过学习本文中的内容，您应该能够熟练地创建、添加、插入、删除、移动树节点，并能够运用多选、展开、折叠以及节点排序等技巧。在实际开发中，我们可以将这些技巧结合使用，创造出更为复杂的树形结构界面，提高我们的开发效率。注：本文部分文字与图片资源来自于网络，转载此文是出于传递更多信息之目的,若有来源标注错误或侵犯了您的合法权益，请立即后台留言通知我们，情况属实，我们会第一时间予以删除，并同时向您表示歉意
