前段时间
论坛的一个帖子http://topic.csdn.net/u/20080706/10/24331390-5522-400d-a557-8d719869af68.html,问怎样将TreeView的Chekbox状态应用到子结点,我错看成ListView给答了。当然ListView也可以实现层级递进的树形结构,虽然只是外观上的,不能实现折叠打开的效果,但将Chekbox状态应用到子结点却是能很好的实现的。就像下面的图片所展示的效果:
实现法也很简单:
上面代码中的ListView1.Items[].Data可看作是保存着级别信息(实际上我把用它作其他用途),需要的地方调用
![](https://p-blog.csdn.net/images/p_blog_csdn_net/nhconch/EntryImages/20080803/lvchkbox.png)
实现法也很简单:
- //将Item自身的Checked状态应用到下级子项目
- procedure CheckSubItems(Item: TListItem);
- var
- i: Integer;
- begin
- for i := Item.Index+1 to ListView1.Items.Count-1 do
- if Integer(ListView1.Items[i].Data) > integer(Item.Data) then
- ListView1.Items[i].Checked := Item.Checked
- else
- Break;
- end;
CheckSubItems函数就可以将TListItem的Chekbox状态应用到子结点。。