Delphi Treeview 用法(概念、属性、添加编辑插入节点、定位节点、拖拽等)
Delphi Treeview 用法(概念、属性、添加编辑插入节点、定位节点、拖拽等)
今天再细研究了一下Treeview的用法,网上虽然总结了很多,但是还是有很多节点没有讲到了,也给使用中遇到很多问题。特地总结一下:
1、概念
- Expanded //表明是否所有的子项都全部展开(包括子项的子项),为True表示全部展开。
- IsVisible //表明一个项是否在树中能被看到,如果树全部展开那么这个Item是肯定可以 被看到。
- HasChildren //表明一个项是否有子项。GetFirstChild, GetLastChild, GetPrevChild, GetNextChild分别返回当前项子项的第一个、最后一个和前一个、后一个项。
- GetNextSibling and GetPrevSibling //返回在同一Level下的下一个和上一个项。
- GetNextVisible and GetPrevVisible //返回能看得到的下一个和上一个项。如果一个节点 有Parent,则HasAsParent方法返回True. Parent为当前项的父项。Focused属性确定焦点是否落在此节点上,被Focus时会一个标准的方框围住。很显然,只有一个节点会被聚焦。
- Selected //表明一个节点是否被选中,同样只有一个节点会被选中。
- DropTarget //表明节点在拖动操作中是源还是目标。
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
- SelectedIndex //当节点被选中时在TimageList 中选什么样的图象
- OverlayIndex //选那副图象作为掩图(一幅图象透明地显示在另一幅图象的前面), 比如一个节点不可用时加一副X图象在其前面。
- ImageIndex //在常态时选用的图的序号
- StateIndex //在StateImages这个ImageList中对应的序号,-1时不显示图象 ,比较典型的,像在文件管理器中的所显示的一样,Treeview控件在节点之前也可以 显示图象。在Form中放置一ImageList控件,加入几个图片,分别被Index为0,1,… 在Treeview的Image属性项填入你所加入的ImageList的控件名称。
- TreeNode的ImageIndex //表示节点未被选中时(Selected=nil)的图片序号,SelectedIndex表示节点被选中时图片序号。
TreeView1.Items[0].ImageIndex := 1; //默认选用的图(序号) TreeView1.Items[0].SelectedIndex := 2; //选中时,显示的图(序号)
TreeView1.Selected.Level=0; //第一层
TreeView1.FullExpand; {全部展开} TreeView1.FullCollapse; {全部合并}
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[i].Text=ENode then begin
Node:=TreeView1.Items.Item[i];
TreeView1.Select(Node); //选中焦点
Exit;
end;
end;
6、实现拖拽 [原创]
实现拖拽的代码也很简单,而不是很长,最简单就这两句:
1)开启时:
TreeView1.DragMode:=dmAutomatic; //开启拖拽模式:dmAutomatic自动 dmManual 手动
2)在TreeView1DragDrop处事件:
TreeView1.Selected.MoveTo(TreeView1.DropTarget,naAddChild);
即可轻松实现拖拽
请发表评论