Delphi TreeView – 自动给标题上加图片
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 = 0 then Node.ImageIndex := 9 else Node.ImageIndex := 66; end else Node.ImageIndex := 24; Node.SelectedIndex := Node.ImageIndex;end; |
