一个有关目录树的问题！ 因为目录树的层次太多，我想把第二层目录的字的颜色变为红色的，别的层次不变，怎么实现啊，大虾们给点代码吧！ 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);begin if node.Level =1 then treeview1.Canvas.Font.Color :=clred;end; TreeView1.Selected.count>0 有下一层目录 Treeview1.item[0].count 第一个节点的下有多少个. Delphi TwwDBGrid控件奇怪的问题。 DELPHI+SQL2000数据库的问题? 怎样通过改变trackbar改变歌曲的播放进度？ 问题---在线给分 在公共模块中声明函数该怎么声明呢？ 初学图表，请指教 一个关于读取数据库的简单问题，在线等候大虾光临。（Delphi + Oracle） 怎样建立一个删除视图的存储过程? 做一个有关WINDOWS下的复制文件提示框的 delphi 导出WORD,如何在页脚处显示‘共X页 第Y页“ 这里人气旺，到这里来问吧…… 关于Locate一个很怪的小问题，帮忙看看！
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if node.Level =1 then
treeview1.Canvas.Font.Color :=clred;
end;