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 :=  to RzTreeView1 . Items . Count- 1 do RzTreeView1 . Items[icount].Expanded:= True ; RzTreeView1 . Items . EndUpdate; end ;