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 imagelist-图片（bmp）按名称而不按索引

Delphi xe 减少程序体积！

Delphi2009 使用 png 图片

Delphi编程获取系统当前进程、窗口句柄、文件属性

Delphi 通过进程名获得文件全路径的函数

Delphi2009之timage

Delphi给access创建数据表

Delphi 全局键盘钩子(wh_keyboard)

Delphi windows 编程[1] - 窗体生成的过程一

Delphi 中tresourcestream流使用

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

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