用TreeView的OnCultomDrawItem事件: procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); begin with treeview1.Canvas do if node.Text='a1' then begin Font.Color :=clRed; end; end;有了Font属性,你想作什么吧…………
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with treeview1.Canvas do
if node.Text='a1' then
begin
Font.Color :=clRed;
end;
end;有了Font属性,你想作什么吧…………