将ListView的Chekbox状态应用到子结点

前段时间论坛的一个帖子http://topic.csdn.net/u/20080706/10/24331390-5522-400d-a557-8d719869af68.html，问怎样将TreeView的Chekbox状态应用到子结点，我错看成ListView给答了。当然ListView也可以实现层级递进的树形结构，虽然只是外观上的，不能实现折叠打开的效果，但将Chekbox状态应用到子结点却是能很好的实现的。就像下面的图片所展示的效果：

实现法也很简单：

1. //将Item自身的Checked状态应用到下级子项目
2. procedure CheckSubItems(Item: TListItem);
3. var
4.     i: Integer;
5. begin
6.     for i := Item.Index+1 to ListView1.Items.Count-1 do
7.         if Integer(ListView1.Items[i].Data) > integer(Item.Data) then
8.             ListView1.Items[i].Checked := Item.Checked
9.         else
10.             Break;
11. end;
12. 
    

上面代码中的ListView1.Items[].Data可看作是保存着级别信息（实际上我把用它作其他用途），需要的地方调用

CheckSubItems函数就可以将TListItem的Chekbox状态应用到子结点。

。