delphi的treeNode没有操纵字体的方法，那应如何处理TreeView上的字体呢？

Question

在画树的时候，我希望根据具体情况改变某个节点显示文字的字体（如斜体）以及是否可以被使用的属性（Enabled:=false）。
在.net中，有treeNode.NodeFont(new Font(....))方法。不知道Delphi中是否也可以有类似的操纵呢？

Answer 1

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    with TreeView1.Canvas do
    if Node=TreeView1.Selected   then begin
      font.Color := clWhite;
      // font.size 等等      brush.Color := clRed;
    end;end;