Delphi TreeView �C 自动给标题上加图片

本文整理自网络，侵删。

 
当处理完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;
 

相关阅读 >>

Delphi 获取系统串口列表

Delphi 枚举消息钩子的代码

Delphi idhttp封装得post get函数

Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名

Delphi xe ttask.waitforall/waitforany 一不小心会造成内存泄露

Delphi实现保存和读取图片的方法

Delphi windows 编程[2] - 学习窗体生成的过程二

Delphi 大小排序算法代码

Delphi uac相关代码

Delphi opendialog控件用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi TreeView �C 自动给标题上加图片