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 ;

 

 

 

转载于:https://www.cnblogs.com/m0488/p/6609897.html