我之前也碰到过这个头疼的问题！深色VCL样式里禁用控件的文本默认深灰色确实很难辨认，而且样式编辑器的设置经常不生效，甚至用Style Hook都踩过坑。下面分享几个亲测有效的解决办法：

1. 修正自定义Style Hook的实现 #

你提到用Style Hook没生效，大概率是没有正确覆盖VCL样式对禁用状态的颜色强制逻辑。试试重写UpdateColors和DrawText方法，直接强制指定禁用时的文本颜色：

type
  TEditStyleHookColor = class(TEditStyleHook)
  protected
    procedure UpdateColors; override;
    procedure DrawText(var Rect: TRect; const Text: string; Flags: Cardinal); override;
  end;

procedure TEditStyleHookColor.UpdateColors;
begin
  inherited;
  // 跳过VCL样式的默认禁用颜色，强制设置自己需要的颜色
  if not Control.Enabled then
  begin
    Font.Color := clWhite; // 替换成你觉得易读的颜色，比如亮白、浅灰
    Brush.Color := Control.Color; // 保持背景和控件本身的颜色一致
  end;
end;

procedure TEditStyleHookColor.DrawText(var Rect: TRect; const Text: string; Flags: Cardinal);
begin
  // 绘制文本前再次确认颜色，防止被样式引擎覆盖
  if not Control.Enabled then
    Font.Color := clWhite;
  inherited;
end;

// 别忘了注册这个Style Hook
initialization
  TStyleManager.Engine.RegisterStyleHook(TEdit, TEditStyleHookColor);
finalization
  TStyleManager.Engine.UnRegisterStyleHook(TEdit, TEditStyleHookColor);
end.

这个方法的核心是在样式钩子的关键步骤里，直接覆盖VCL样式对禁用控件的颜色设置，避免被默认逻辑覆盖。

2. 正确修改VCL样式的禁用状态属性 #

如果不想写代码，也可以试试重新调整样式编辑器的设置，注意几个关键点：

• 打开VCL样式编辑器后，找到目标控件（比如TEdit），切换到Disabled状态
• 找到TextColor属性，设置成你需要的亮色（比如clWhite）
• 务必保存样式文件，然后在项目中重新加载这个样式（有时候需要重启Delphi才能生效）
• 有些第三方样式会锁定部分属性，这时候可能需要先解锁样式或者修改样式的源XML文件

3. 通过消息拦截强制设置颜色 #

如果上面两种方法都不管用，可以试试拦截控件的绘制消息，直接在系统层面设置文本颜色：

procedure TYourForm.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  Ctrl: TWinControl;
  hDC: HDC;
begin
  // 针对编辑框的禁用状态处理
  if Msg.Message = WM_CTLCOLOREDIT then
  begin
    hDC := Msg.wParam;
    Ctrl := FindControl(Msg.lParam);
    if Assigned(Ctrl) and (Ctrl is TEdit) and not Ctrl.Enabled then
    begin
      SetTextColor(hDC, clWhite); // 设置文本颜色
      SetBkColor(hDC, Ctrl.Color); // 设置背景颜色
      Handled := True;
      // 返回对应的背景画刷，这里用控件本身的颜色创建画刷
      Result := CreateSolidBrush(ColorToRGB(Ctrl.Color));
    end;
  end;
  // 如果是其他控件（比如TLabel），可以拦截WM_CTLCOLORSTATIC消息
  else if Msg.Message = WM_CTLCOLORSTATIC then
  begin
    hDC := Msg.wParam;
    Ctrl := FindControl(Msg.lParam);
    if Assigned(Ctrl) and (Ctrl is TLabel) and not Ctrl.Enabled then
    begin
      SetTextColor(hDC, clWhite);
      SetBkColor(hDC, Ctrl.Color);
      Handled := True;
      Result := CreateSolidBrush(ColorToRGB(Ctrl.Color));
    end;
  end;
end;

这个方法绕过VCL样式的逻辑，直接和Windows API交互，兼容性更强，适合各种复杂的样式场景。

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