高分求教：如何改变TREEVIEW中某个节点的颜色？？

Question

或者改变他的背景色也可以！

Answer 1

这个我是借其他人东西你参考以下：
================================
  写AdvancedCustomDrawItem或CustomDrawItem事件procedure TForm2.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if odd(Node.AbsoluteIndex) then Sender.Canvas.font.Color := clBlue
  else Sender.Canvas.font.Color := clGreen;
  DefaultDraw := True;
end;

Answer 2

lgqTiger(【老虎】) 指法好快，呵呵

Answer 3

我来实验以下，
不过，那个ODD是什么意思？
我想实现TREEVIEW中不同层的节点颜色不同。

Answer 4

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if node.Level = 0 then
  begin
     Sender.Canvas.font.Color := clBlue;
  end
  else if node.Level = 1 then
  begin
    Sender.Canvas.font.Color := clred;
  end;
end;

Answer 5

odd函数：function Odd(X: Longint): Boolean;
Returns True if argument is an odd number.