Delphi TreeView – 自動給标題上加圖檔

當處理完TreeView控件樹形結構的資料後，根據不同的樹形節點Level，加上不同的圖檔。

圖檔的ImageList已經放置好，并且TreeView的Images已經連上帶有圖檔的ImageList。

除了手動添加圖檔外，還可以通過代碼，根據判斷不同Level來批量添加圖檔，實作代碼增加在TreeView的 GetImageIndex 事件中。

1 2 3 4 5 6 7 8 9

procedure Tfrm_main . RzTreeView1GetImageIndex(Sender: TObject; Node: TTreeNode); begin if Node . HasChildren  then begin if Node . Level =  then Node . ImageIndex :=  9 else Node . ImageIndex :=  66 ; end else Node . ImageIndex :=  24 ; Node . SelectedIndex := Node . ImageIndex; end ;