如何在启用VCL Themes时修改DropDownList ComboBox的Label区域字体颜色并实现子类化自绘

疑问A：优化自绘外观匹配原生风格 #

你遇到的两个外观问题本质是自绘逻辑没有调用VCL主题接口绘制原生控件元素，而是直接手动填充背景导致的，优化方案如下：

1. 不要手动指定Brush颜色填充背景，改用StyleServices.DrawElement绘制对应状态的原生ComboBox元素，自动保留悬停、选中的主题效果
2. 开启控件双缓冲，避免自绘导致的边框发黑问题
3. 文字绘制时设置Brush为透明，避免覆盖已经绘制好的原生背景

优化后的绘制逻辑已经包含在下方的子类代码中，效果和原生csDropDownList风格完全一致。

疑问B：子类化TComboBox实现全局复用 #

直接继承TComboBox重写DrawItem方法即可，所有实例自动继承绘制逻辑，不需要单独绑定事件：

完整子类代码 #

unit StyledComboBoxUnit;

interface

uses
  Winapi.Windows, System.Classes, Vcl.StdCtrls, Vcl.Themes, Vcl.Graphics;

type
  TStyledDropDownList = class(TComboBox)
  private
    // 支持自定义高亮颜色，不需要可以删掉直接写死clRed
    FUnmatchedColor: TColor;
  protected
    procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property UnmatchedColor: TColor read FUnmatchedColor write FUnmatchedColor default clRed;
  end;

implementation

{ TStyledDropDownList }

constructor TStyledDropDownList.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  // 自动设置为固定高度自绘模式，外部不需要再修改
  Style := csOwnerDrawFixed;
  // 解决自绘闪烁和黑边框问题
  DoubleBuffered := True;
  FUnmatchedColor := clRed;
end;

procedure TStyledDropDownList.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  LStyleSvc: TCustomStyleServices;
  LElement: TThemedComboBox;
  LFontColor: TColor;
begin
  LStyleSvc := StyleServices;
  // 未开启主题时走原生绘制逻辑，保证兼容性
  if not LStyleSvc.Enabled then
  begin
    inherited;
    Exit;
  end;

  // 绘制对应状态的原生背景，自动包含边框、悬停、选中效果
  if odComboBoxEdit in State then
    LElement := tcComboBoxEdit
  else if odSelected in State then
    LElement := tcComboBoxItemSelected
  else if odHotLight in State then
    LElement := tcComboBoxItemHot
  else
    LElement := tcComboBoxItemNormal;
  LStyleSvc.DrawElement(Canvas.Handle, LStyleSvc.GetElementDetails(LElement), Rect);

  // 计算字体颜色
  if (odComboBoxEdit in State) and (ItemIndex <> Tag) then
    LFontColor := FUnmatchedColor
  else if odSelected in State then
    LFontColor := LStyleSvc.GetStyleFontColor(sfComboBoxItemSelected)
  else if odHotLight in State then
    LFontColor := LStyleSvc.GetStyleFontColor(sfComboBoxItemHot)
  else
    LFontColor := LStyleSvc.GetStyleFontColor(sfComboBoxItemNormal);

  // 绘制文字
  Canvas.Font.Color := LFontColor;
  Canvas.Brush.Style := bsClear;
  if Index >= 0 then
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Items[Index]);
end;

end.

使用方法 #

1. 将该单元加入你的工程，要么注册到VCL组件面板直接拖入窗体使用，要么将原窗体中需要用到该功能的ComboBox的类名从TComboBox替换为TStyledDropDownList
2. 给每个ComboBox的Tag属性赋值你要比对的基准索引即可，当选中项索引不等于Tag时，顶部显示区域文字自动变为指定的高亮颜色

内容的提问来源于stack exchange，提问作者Reron