是指TTreeView吗,可以自绘。
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Node.Selected then
begin
TreeView1.Canvas.Brush.Color := clGreen;
TreeView1.Canvas.Font.Color := clRed;
end
else begin
TreeView1.Canvas.Brush.Color := clBlue;
TreeView1.Canvas.Font.Color := clFuchsia;
end;
end;