如题，感谢赐教。

不能沉

真心求教

没有这个属性

有啊

重绘

说错了，左右边距变窄
var
AColor:TColor;
begin
cbxDoctorType.Canvas.Brush.Color := clWhite;
cbxDoctorType.Canvas.FillRect(Rect);
case index of
0..2: AColor := clBlue;
3..5: AColor := clRed;
else AColor := clBlack;
end;
cbxDoctorType.Canvas.Font.Color := AColor;
cbxDoctorType.Canvas.TextOut(Rect.Left +1 , Rect.Top + 1 ,cbxDoctorType.Items.Strings[index]);
参照这个改。