Delphi TreeView – 自动给标题上加图片
当处理完TreeView控件树形结构的数据后,根据不同的树形节点Level,加上不同的图片。
图片的ImageList已经放置好,并且TreeView的Images已经连上带有图片的ImageList。
除了手动添加图片外,还可以通过代码,根据判断不同Level来批量添加图片,实现代码增加在TreeView的 GetImageIndex 事件中。
1
2
3
4
5
6
7
8
9
|
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
;
|