Delphi Treeview 用法（概念、属性、添加编辑插入节点、定位节点、拖拽等）
<p><strong><span style="font-size: 16px">Delphi Treeview 用法（概念、属性、添加编辑插入节点、定位节点、拖拽等）</span></strong></p><p><span style="font-size: 16px">今天再细研究了一下Treeview的用法，网上虽然总结了很多，但是还是有很多节点没有讲到了，也给使用中遇到很多问题。特地总结一下：</span></p>
<p><span style="font-size: 16px"><strong>1、概念</strong></span></p>
<div style="margin-left: 30px"><span style="font-size: 16px">Treeview用于显示按照树形结构进行组织的数据。Treeview控件中一个树形图由节点(TreeNode)和连接线组成。TtreeNode是TTreeview的基本组成单元。 一个树的节点又包含文本(Text)和数据(Data)。Text为String类，Data则为无定形指针(Untyped Pointer)，可以指向一个与节点相联系的数据结构。每一个节点下子节点形成这一节点的Items属性，当前节点有一个唯一的Index(TreeNode的Index属性)，用于说明子节点在Items中的位置，每一个节点下的子节点是顺序编号的，第一个是0，第二个是1，依次类推。用IndexOf方法获得子节点的顺序，绝对顺序(AbsoluteIndex)则是指从Treeview第一个项开始的顺序值，第一个是0，如此推下去。Item属性则根据Index的值返回当前节点的第Index个子节点。Count则表明属于此项的所有子节点的数量。用MoveTo方法将Item由一个位置移到另一个位置。 </span></div>
<div><span style="font-size: 16px"> </span></div>
<div><span style="font-size: 16px"><strong>2、属性 </strong> </span></div>
<ul>
<li><span style="font-size: 16px"> Expanded //表明是否所有的子项都全部展开(包括子项的子项)，为True表示全部展开。 </span></li>
<li><span style="font-size: 16px"> IsVisible //表明一个项是否在树中能被看到，如果树全部展开那么这个Item是肯定可以 被看到。 </span></li>
<li><span style="font-size: 16px"> HasChildren //表明一个项是否有子项。GetFirstChild, GetLastChild, GetPrevChild, GetNextChild分别返回当前项子项的第一个、最后一个和前一个、后一个项。 </span></li>
<li><span style="font-size: 16px"> GetNextSibling and GetPrevSibling //返回在同一Level下的下一个和上一个项。 </span></li>
<li><span style="font-size: 16px"> GetNextVisible and GetPrevVisible //返回能看得到的下一个和上一个项。如果一个节点 有Parent，则HasAsParent方法返回True. Parent为当前项的父项。Focused属性确定焦点是否落在此节点上，被Focus时会一个标准的方框围住。很显然，只有一个节点会被聚焦。 </span></li>
<li><span style="font-size: 16px"> Selected //表明一个节点是否被选中，同样只有一个节点会被选中。 </span></li>
<li><span style="font-size: 16px"> DropTarget //表明节点在拖动操作中是源还是目标。 </span></li>
</ul>
<div><span style="font-size: 16px"><strong>3、添加、删除、修改节点： </strong> </span></div>
<div><span style="font-size: 16px">静态的方法可以在设计时通过Items的编辑器设置各节点的内容。在添加和删除前必须保证有节点被选中(Treeview.Selected = nil) 用AddFirst, AddChild等先添加根节点，然后以此为基础，添加此项的子节点。 </span></div>
<div>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Treeview1.Items.AddFirst (nil, 'Root')；//添加第一个节点 注意 根节点没有父节点 (TTreeNode.Parent= nil)
Treeview1.Items.AddChild ( nil,'qt')；//添加第子节点
Treeview1.Selected.Delete {删除节点 }
Treeview1.Selected.EditText {编辑节点内容 }
//在大批量添加数据到Treeview中时可以使用 BeginUpdate、EndUpdate
TreeView.Items.BeginUpdate;
TreeView.Items.EndUpdate <span style="font-size: 16px"> </span></pre>
</div>
</div>
<div><span style="font-size: 16px"><strong> 4、节点上显示图象 </strong> </span></div>
<div><span style="font-size: 16px">Treeview中几个与图象相关的属性： </span></div>
<ul>
<li><span style="font-size: 16px">SelectedIndex //当节点被选中时在TimageList 中选什么样的图象 </span></li>
<li><span style="font-size: 16px">OverlayIndex //选那副图象作为掩图（一幅图象透明地显示在另一幅图象的前面）， 比如一个节点不可用时加一副X图象在其前面。 </span></li>
<li><span style="font-size: 16px">ImageIndex //在常态时选用的图的序号 </span></li>
<li><span style="font-size: 16px">StateIndex //在StateImages这个ImageList中对应的序号，-1时不显示图象 ，比较典型的，像在文件管理器中的所显示的一样，Treeview控件在节点之前也可以 显示图象。在Form中放置一ImageList控件，加入几个图片，分别被Index为0,1,… 在Treeview的Image属性项填入你所加入的ImageList的控件名称。</span></li>
<li><span style="font-size: 16px">TreeNode的ImageIndex //表示节点未被选中时(Selected=nil)的图片序号，SelectedIndex表示节点被选中时图片序号。</span></li>
</ul>
<div><span style="font-size: 16px">例如：</span></div>
<div>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">TreeView1.Items.ImageIndex := 1;//默认选用的图（序号）
TreeView1.Items.SelectedIndex := 2;//选中时，显示的图(序号)</pre>
</div>
</div>
<div><span style="font-size: 16px"><strong>3、TreeView的Level </strong></span></div>
<div><span style="font-size: 16px"> 即树结构的层级 例如：</span></div>
<div>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">TreeView1.Selected.Level=0; //第一层</pre>
</div>
</div>
<div><span style="font-size: 16px"><strong>4、展开与合并 <strong> [原创]</strong></strong></span></div>
<div>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">TreeView1.FullExpand; {全部展开}
TreeView1.FullCollapse; {全部合并}</pre>
</div>
</div>
<div><span style="font-size: 16px"><strong>5、定位节点 <strong><strong> [原创]</strong></strong></strong></span></div>
<div><span style="font-size: 16px"> 网上讲了一个很长的代码定位数据，其实定位就很简单代码：</span></div>
<div>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">var
Node:TTreeNode;
i:Integer;
ENode:string;
begin
ENode:=Trim(Edit1.Text);
for i:=0 to TreeView1.Items.Count-1 do begin
if TreeView1.Items.Item.Text=ENode then begin
Node:=TreeView1.Items.Item;
TreeView1.Select(Node); //选中焦点
Exit;
end;
end;</span></pre>
</div>
<p><span style="font-size: 16px"><strong>6、实现拖拽 [原创]</strong></span></p>
<p><span style="font-size: 16px">实现拖拽的代码也很简单，而不是很长，最简单就这两句：</span></p>
<p><span style="font-size: 16px"> 1）开启时：</span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">TreeView1.DragMode:=dmAutomatic; //开启拖拽模式：dmAutomatic自动 dmManual 手动</pre>
</div>
<p><span style="font-size: 16px"> 2）在TreeView1DragDrop处事件： </span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">TreeView1.Selected.MoveTo(TreeView1.DropTarget,naAddChild);</pre>
</div>
<p><span style="font-size: 16px">即可轻松实现拖拽</span></p>
<p> </p>
<p> </p>
</div>
<div><span style="font-size: 14px; color: rgba(136, 136, 136, 1)">创建时间： 2019.12.16 更新时间：2019.12.17、2021.11.23</span></div>
</div>
<div id="MySignature" role="contentinfo">
博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！<br><br>
来源：https://www.cnblogs.com/guorongtao/p/12049414.html
頁:
[1]