將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;

上面代碼中的ListView1.Items[].Data可看作是儲存著層級資訊（實際上我把用它作其他用途），需要的地方調用

CheckSubItems函數就可以將TListItem的Chekbox狀態應用到子結點。

。