怎样使选中的TreeView节点高亮?

Question

动态添加了TreeView里的节点，现在想让选中的节点高亮，就像鼠标点击选中时该节点高亮一样。
全部账单
   |___001
   |___002 //比如这里被选中并高亮
   |___003 

Answer 1

//参考如下代码～～
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Sender.Selected = Node then begin
    Sender.Canvas.Font.Color := clBlue;
    Sender.Canvas.Font.Style := [fsUnderline];
    Sender.Canvas.Brush.Color := TTreeView(Sender).Color;
  end;
end;