频道分类

Delphi TreeView – 自动给标题上加图片

作者:admin 来源: 日期:2019/10/11 23:08:48 人气: 标签:

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