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

http://www.sina.com.cn 2006年08月01日 09:03  天极yesky

  作者:小刀轻舞

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

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

资源管理器的左边栏中清楚地显示了系统管理的所有磁盘的信息以及各个磁盘所容纳的文件与文件夹

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

Delphi中为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 2 下一页
本文导航:
·Delphi中为TreeView添加单选和复选框
·Delphi中为TreeView添加单选和复选框(2)

发表评论 _COUNT_条
Powered By Google
不支持Flash
·城市对话改革30年 ·新浪城市同心联动 ·诚招合作伙伴 ·企业邮箱畅通无阻
不支持Flash