如何在TreeView的Item中添加一个Label

[Qun~~]

如题,功能要像Foxmail那样收件箱后面可以用别的颜色显示一个未读的数量,或者有什么别的方法可以实现相同的效果

[kye_jufei]

[Quote=引用 3 楼 ronal212121 的回复:]
如下代码供你参考：
procedure TEditForm.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Node.Selected then
begin
TreeView1.Canvas.Font.Color:=clRed;
TreeView1.Canvas.Font.Size:=12;
TreeView1.Canvas.Font.Name:='隶书';
…
[/Quote]
自绘节点文字

[ronal212121]

整个节点都改变颜色不可以吗

[bdmh]

用Node.Data记录是否被看过的值比如,1:看过,0:未看过

[ronal212121]

如下代码供你参考：
procedure TEditForm.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Node.Selected then
begin
TreeView1.Canvas.Font.Color:=clRed;
TreeView1.Canvas.Font.Size:=12;
TreeView1.Canvas.Font.Name:='隶书';
end
else
begin
TreeView1.Canvas.Font.Color:=clblack;
TreeView1.Canvas.Font.Size:=9;
TreeView1.Canvas.Font.Name:='宋体';
end;
end;
//还可以设置未选中的 TreeView1.Canvas.Font 的其他属性，来达到显示不同的效果。

[taxi]

要自绘节点文字。

[ProgramSir]

自己结一个吧.