如下代码供你参考: procedure TEditForm.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); begin if Node.Selected then begin TreeView1.Canvas.Font.Color:=clRed; TreeView1.Canvas.Font.Size:=12; TreeView1.Canvas.Font.Name:='隶书'; end else begin TreeView1.Canvas.Font.Color:=clblack; TreeView1.Canvas.Font.Size:=9; TreeView1.Canvas.Font.Name:='宋体'; end; end; //还可以设置 TreeView1.Canvas.Font 的其他属性,来达到显示不同的效果。
procedure TEditForm.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Node.Selected then
begin
TreeView1.Canvas.Font.Color:=clRed;
TreeView1.Canvas.Font.Size:=12;
TreeView1.Canvas.Font.Name:='隶书';
end
else
begin
TreeView1.Canvas.Font.Color:=clblack;
TreeView1.Canvas.Font.Size:=9;
TreeView1.Canvas.Font.Name:='宋体';
end;
end;
//还可以设置 TreeView1.Canvas.Font 的其他属性,来达到显示不同的效果。