如何获取Delphi 12主题窗体的标题栏背景及文本颜色？

问题分析 #

你遇到的核心问题是：动态创建的自定义标题栏窗体无法自动继承当前VCL主题（如Iceberg Classico）的标题栏样式，之前的两种颜色获取方式失效。原因在于：

• clActiveCaption这类系统颜色常量不一定映射到自定义主题的实际标题栏颜色，主题通常通过自定义样式元素重写了颜色规则。
• 若主窗体的标题栏样式尚未完全初始化，直接复制其颜色会获取到默认值而非主题样式。

正确解决方案 #

方法1：通过VCL样式元素直接获取

VCL样式定义了专门的标题栏颜色常量，可通过TStyleManager.ActiveStyle.GetStyleColor直接获取主题对应的颜色值：

uses
  VCL.Styles, VCL.Styles.Utils;

// 设置激活状态标题栏背景色
fname.customtitlebar.BackgroundColor := StyleManager.ActiveStyle.GetStyleColor(scCaptionActive);
// 设置非激活状态标题栏背景色
fname.customtitlebar.InactiveBackgroundColor := StyleManager.ActiveStyle.GetStyleColor(scCaptionInactive);
// 设置激活状态标题栏文本颜色
fname.customtitlebar.TextColor := StyleManager.ActiveStyle.GetStyleColor(scCaptionTextActive);
// 设置非激活状态标题栏文本颜色
fname.customtitlebar.InactiveTextColor := StyleManager.ActiveStyle.GetStyleColor(scCaptionTextInactive);

方法2：通过主窗体的系统样式钩子获取

如果主窗体已正确应用主题，可通过其系统样式钩子获取实际生效的标题栏颜色：

uses
  VCL.Styles.Utils.SysStyleHook;

var
  SysStyleHook: TSysStyleHook;
begin
  SysStyleHook := GetSysStyleHook(Form1.Handle);
  if Assigned(SysStyleHook) then
  begin
    fname.customtitlebar.BackgroundColor := SysStyleHook.CaptionColor;
    fname.customtitlebar.InactiveBackgroundColor := SysStyleHook.InactiveCaptionColor;
    fname.customtitlebar.TextColor := SysStyleHook.CaptionTextColor;
    fname.customtitlebar.InactiveTextColor := SysStyleHook.InactiveCaptionTextColor;
  end;
end;

注意事项 #

• 确保在样式加载完成后执行代码：建议在动态窗体的OnCreate事件中调用，或等待主窗体OnShow事件完成后再创建子窗体，避免获取到未初始化的默认颜色。
• 自定义主题适配：若使用非官方主题，可通过StyleManager.ActiveStyle.ElementNames枚举所有样式元素，确认标题栏对应的元素名称（通常包含Caption或TitleBar关键词）。

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