关于treeview中文字，背景的颜色

Question

如何改变treeview中当前节点的文字或背景的颜色，其他的不变，谢谢
今晚结贴！

Answer 1

所属社区：  Delphi 非技术区  请转到VCL区或其它的，大家可不想要水分!!

Answer 2

请楼主一定要转到其它区去，要不然，请不要结贴，我可不想要灌水分!!procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if cdsSelected in State then
  begin
    Sender.Canvas.Brush.Color :=clred;
    Sender.Canvas.Font.Color :=clBlue;
  end;
end;