怎样在treeview上的不同的节点文字后面加上不同的图片

[query008]

如题
比如tree：
top
aaa（图片一）
bbb（图片二）

[wycg_cnh20]

Delphi自带功能是加到前面
如果要按楼主要求做的话，恐怕只能写控件了

[jinjazz]

imageindex

[yzty]

设置Treeview的ImageList为ImageList1,在ImageList1中装载图标，然后
写代码如下：
var
aaa,bbb: TTreeNode;
begin
aaa.ImageIndex := 0;
aaa.SelectedIndex := 0;
bbb.ImageIndex := 1;
bbb.SelectedIndex := 1;
end;

[BigAngell]

就是就是，对那个TreeView呀，头都搞大了！

[skywang0810]

为什么让图片在后面？

[myy]

VirtualTreeView可以。

http://www.delphi-gems.com/VirtualTreeview/VT.php

[shadowfish]

{自定义TreeView的CustomDrawItem事件，根据用户的类型显示不同的颜色，图标等}
procedure TForm1.TrevUserListCustomDrawItem(
Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
G1:TBITMAP;
begin
try
G1:= TBITMAP.Create;
if fileexists(EXTRACTFILEPATH(APPLICATION.ExeName)+'\1.BMP') then
G1.LoadFromFile(EXTRACTFILEPATH(APPLICATION.ExeName)+'\1.BMP')
else
g1:=nil;

DefaultDraw:=true;
if Node.Selected then
begin
TrevUserList.Canvas.Font.Color:=clWhite;
IF node.Parent <> nil then begin
if (g1 <> nil) and havideo and (node.Parent.Text='正常') then
TrevUserList.Canvas.Draw(100,Node.DisplayRect(True).Top,G1);
end;
end
else
begin
if Node.StateIndex = 2 then
begin
if (Node.ImageIndex = 6) or (Node.ImageIndex = 10) then
TrevUserList.Canvas.Font.Color:=clRed
else begin
TrevUserList.Canvas.Font.Color:=clGreen;
IF g1 <> nil then begin
if havideo then
TrevUserList.Canvas.Draw(100,Node.DisplayRect(True).Top,G1);
end;
end;
end
else if Node.StateIndex = -1 then
begin
TrevUserList.Canvas.Font.Color:=$00934A46;
TrevUserList.Canvas.Font.Style:=[fsBold];
end
else
TrevUserList.Canvas.Font.Color:=clBlack;

end;

TrevUserList.Canvas.Textout(Node.DisplayRect(True).Left+2,Node.DisplayRect(True).Top+2,Node.Text);
finally
G1.Free;
end;
end;