如何给TreeView的TreeNode加字体和颜色？

Question

Treeview1.Canvas.Font.Color:=clred;
在OnCustomDrawItem事件里写

Answer 1

楼上回答正确，在OnCustomDrawItem中改变节点颜色，
可惜来迟了一步，有分就好

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var
  First: TTreeNode;
begin
  First := TreeView1.Items.Add(nil,'First');
  TreeView1.Items.AddChild(First,'Second');
  TreeView1.Items.AddChild(First,'Third');
end;procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if cdsSelected in State then
    TreeView1.Canvas.Font.Color := clRed;
end;
你再试试！

Answer 3

Treeview1.Canvas.Font.Color:=clred;
在OnCustomDrawItem事件里写
还要在窗体的创建事件中将其在从保存的文件中读出，并写到树上。具体事件自己写一下。