Delphi 12如何通过代码程序化修改默认样式及系统颜色？

启用VCL主题后，直接修改clHighlight这类全局颜色常量不会生效——因为主题引擎会接管控件的颜色渲染，样式编辑器本质是修改了主题样式文件中的资源定义。要通过代码实现同样效果，需要操作当前激活的样式对象：

核心步骤 #

1. 获取当前激活的样式对象
   先确认主题已启用，通过TStyleManager.ActiveStyle拿到当前样式服务实例。

2. 修改对应区域的颜色/字体

   • SysColors区域：操作样式对象的SysColors数组，使用TSystemColor枚举指定目标项，比如修改高亮色：

     Style.SysColors[scHighlight] := clRed;
     

   • Colors区域：通过Colors属性修改自定义颜色项，例如：

     Style.Colors[clWindow] := $F0F0F0;
     

   • Fonts区域：调整Fonts集合中的字体属性，比如修改标题栏字体颜色：

     Style.Fonts[fsCaption].Color := clNavy;
     

3. 刷新样式使修改生效
   修改完成后调用Application.UpdateStyleControls刷新所有控件的样式渲染，或者重新设置当前样式触发全局更新：

   Application.UpdateStyleControls;
   

完整示例代码 #

uses
  Vcl.Themes, Vcl.Styles.Utils; // 根据Delphi版本调整引用单元

procedure TMainForm.btnModifyStyleClick(Sender: TObject);
var
  ActiveStyle: TCustomStyleServices;
begin
  if not TStyleManager.IsStyleActive then Exit;

  ActiveStyle := TStyleManager.ActiveStyle;
  // 修改SysColors高亮色
  ActiveStyle.SysColors[scHighlight] := clRed;
  // 修改Colors中的窗口背景色
  ActiveStyle.Colors[clWindow] := $F5F5F5;
  // 修改标题栏字体颜色
  ActiveStyle.Fonts[fsCaption].Color := clDarkBlue;
  // 刷新所有控件样式
  Application.UpdateStyleControls;
end;

额外说明 #

• 不同Delphi版本的样式API可能有细微差异，比如部分版本中SysColors的枚举类型为TColorStyle，需对应正确的枚举值。
• 若需要持久化修改后的样式，可将样式保存为.vsf文件，后续启动时加载：

  // 保存修改后的样式
  ActiveStyle.SaveToFile('MyCustomStyle.vsf');
  // 加载自定义样式
  TStyleManager.LoadStyleFromFile('MyCustomStyle.vsf');
  TStyleManager.SetStyle('MyCustomStyle');
  

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