Delphi TreeView – 自動展開樹形結構

Delphi TreeView – 自動展開樹形結構

---

當處理完TreeView控件樹形結構的數據後，須要默認自動所有展開，能夠用到TreeView的Expanded屬性。

1 2 3 4 5 6 7 8 9 10

var        icount :  integer ; begin RzTreeView1 . Items . EndUpdate; //示例中用的是Raize中的RzTreeView組件 for icount :=  0 to RzTreeView1 . Items . Count- 1 do        RzTreeView1 . Items[icount].Expanded:= True ;   RzTreeView1 . Items . EndUpdate; end ;