修改 RzCmboBx.pas
if (Style = csDropDownList) then
begin
FCanvas.Brush.Color := clWhite;
FCanvas.FillRect(R);
FCanvas.Pen.Color := clRED;
TextOffset := ((R.Bottom - R.Top) - Canvas.TextHeight('Yy')) div 2;
FCanvas.TextRect(R, R.Left + 2, R.Top + TextOffset, Text);
end;
// ---------------------------