delphi TreeView – 自动给标题上加图片
当处理完TreeView控件树形结构的数据后，根据不同的树形节点Level，加上不同的图片。
图片的ImageList已经放置好，并且TreeView的Images已经连上带有图片的ImageList。
procedure TForm1.TreeView1GetImageIndex(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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.14938497543335 seconds