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

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

实现法也很简单：

1. //将Item自身的Checked状态应用到下级子项目
2. procedureCheckSubItems(Item:TListItem);
3. var
4. i:Integer;
5. begin
6. fori:=Item.Index+1toListView1.Items.Count-1do
7. ifInteger(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状态应用到子结点。

。