CWAPI - Charlie Wang API

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

Delphi Tips Charlie Wang 8210℃

当处理完TreeView控件树形结构的数据后,根据不同的树形节点Level,加上不同的图片。

图片的ImageList已经放置好,并且TreeView的Images已经连上带有图片的ImageList。

RTV-Images

除了手动添加图片外,还可以通过代码,根据判断不同Level来批量添加图片,实现代码增加在TreeView的 GetImageIndex 事件中。

recommand

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;

 



转载请注明:CWAPI » Delphi TreeView – 自动给标题上加图片