• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

Delphi中为TreeView添加单选和复选框

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
　打开电脑，进入Windows操作系统，在资源管理器的左边栏中清楚地显示了系统管理的任何磁盘的信息连同各个磁盘所容纳的文档和文档夹(如图一)。这种常见的显示方式是由一个根节点和若干个子节点构成的，这被称为“树形结构”。这种树形结构的用途很广泛，在很多常用软件中都出现过他的身影。Windows中将这种结构封装为“树形控件”，即TreeView控件，他和ListView、Button等相同都属于系统自带的通用公共控件。在Delphi中，TreeView也被封装成了VCL组件，他的位置在“Win32组件”面板上，是我们最常用的几个组件之一。


　　Delphi自带的TreeView组件能够显示树形结构，也能够为每个节点指定不同的图标来区分各自的功能。但在平时的使用中，我们发现他并不能嵌入CheckBox或是RadioButton组件，这样用户就不能直观地选择某一部分节点或某个节点。怎样来解决这个问题呢？我们思考之后发现，有两种思路能够完成前面所述的任务。一种是在TreeView组件的基础上继承的他的功能，并添加所要的功能（使TreeView能嵌入CheckBox或是RadioButton组件）即重写一个组件。另一种是利用用户的错觉，将CheckBox或是RadioButton所能实现的外观用两种状态的图片（一种是选中状态另一种是未选中状态）来交替显示，走迂回路线来完成任务。我们来分析一下这两种方法的优缺点：第一种方法要重写一个组件，显然难度较大，所用时间较长；第二种方法，利用TreeView组件本身就具备的显示图标功能，简便易行，所用时间短，能够完成需求。比较之后，我们选择作用第二种方法，先来看一下完成之后的效果(如图二)，应该说是达到了目的，现在我们来细述一下完成的过程：


　　首先，我们在Win32面板上选择ImageList组件，配置他的StateImages属性，包括两种状态的图标，一种是选中状态，另一种是未先中状态。

　　其次，我们调用ToggleTreeView过程(实现方法见后文)，实现在鼠标单击和键盘选择的状态下改变状态图标的功能。

　　ToggleTreeView过程实现代码如下：

　　procedure ToggleTreeViewCheckBoxes(
　　 Node :TTreeNode;
　　 cUnChecked, //CheckBox未选中状态
　　 cChecked, //CheckBox选中状态
　　 cRadioUnchecked, //RadioButtion未选中状态
　　 cRadioChecked :integer); // RadioButtion选中状态
　　var
　　 tmp:TTreeNode;
　　begin
　　 if Assigned(Node) then
　　 begin
　　//假如当前是未选中状态则变为选中状态
　　　if Node.StateIndex = cUnChecked then
　　 Node.StateIndex := cChecked
　　//假如当前是选中状态则变为未选中状态
　　 else if Node.StateIndex = cChecked then
　　 Node.StateIndex := cUnChecked
　　 else if Node.StateIndex = cRadioUnChecked then
　　 begin
　　 tmp := Node.Parent;
　　 if not Assigned(tmp) then
　　 tmp := TTreeView(Node.TreeView).Items.getFirstNode
　　 else
　　 tmp := tmp.getFirstChild;
　　 while Assigned(tmp) do
　　 begin
　　 if (tmp.StateIndex in
　　 [cRadioUnChecked,cRadioChecked]) then
　　 tmp.StateIndex := cRadioUnChecked;
　　 tmp := tmp.getNextSibling;
　　 end;
　　 Node.StateIndex := cRadioChecked;
　　 end; // if StateIndex = cRadioUnChecked
　　 end; // if Assigned(Node)
　　end;
　第三，上面的代码解决的是状态图标转换的问题，那怎样解决在鼠标单击和键盘选择之后就改变状态呢？下面给出实现代码：

　　(1)当鼠标单击时，代码如下：

　　procedure TForm1.TreeView1Click(Sender: TObject);
　　var
　　 P:TPoint;
　　begin
　　 GetCursorPos(P); //得到光标的位置
　　 P := TreeView1.ScreenToClient(P);
　　 if (htOnStateIcon in
　　 TreeView1.GetHitTestInfoAt(P.X,P.Y)) then
　　 ToggleTreeViewCheckBoxes(
　　 TreeView1.Selected,
　　 cFlatUnCheck,
　　 cFlatChecked,
　　 cFlatRadioUnCheck,
　　 cFlatRadioChecked);
　　end;

　　(2)当键盘选择时，代码如下：

　　procedure TForm1.TreeView1KeyDown(
　　 Sender: TObject;
　　 var Key: Word;
　　 Shift: TShiftState);
　　begin
　　 if (Key = VK_SPACE) and
　　 Assigned(TreeView1.Selected) then
　　 ToggleTreeViewCheckBoxes(
　　 TreeView1.Selected,
　　 cFlatUnCheck,
　　 cFlatChecked,
　　 cFlatRadioUnCheck,
　　 cFlatRadioChecked);
　　end;

　　最后，我们给出一个小例子，来验证一下的我们试验的结果。在窗体上的摆放TreeView、ImageList、Button和一个Memo组件(如图三)，在加入上面的代码之后，我们来编写这个Button的单击事件的代码：

　　　　procedure TForm1.Button1Click(Sender: TObject);
　　　　var
　　　　 BoolResult:boolean;
　　　　 tn : TTreeNode;
　　　　begin
　　　　 if Assigned(TreeView1.Selected) then
　　　　 begin
　　　　 tn := TreeView1.Selected;
　　　　 BoolResult := tn.StateIndex in
　　　　 [cFlatChecked,cFlatRadioChecked];
　　　　 Memo1.Text := tn.Text +
　　　　 #13#10 +
　　　　 ’Selected: ’ +
　　　　 BoolToStr(BoolResult, True);
　　　　　　//Memo给出所选中的节点和当前的状态
　　　　 end;
　　　　end;




　　因为篇幅所限，上面的例子给出是最简单的一个情况，假如要编写更为专业的软件，请读者朋友充分发挥想象，一定做出更好的效果(如图四)。


鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
delphi资源文件制作及使用详解发布时间：2022-07-18
下一篇：
简易高效的Delphi原子队列发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap