VCL样式预览窗体仅非Windows样式可用问题求解决及原因

• VCL样式引擎的激活逻辑：当应用当前样式为“Windows”（原生样式）时，VCL样式管理器默认处于未激活状态，此时单独给子窗体设置StyleName不会触发样式应用——因为整个样式引擎没有启动，无法解析和渲染自定义样式。
• VCL样式的全局绑定特性：VCL样式设计为全局生效，默认情况下只有当全局样式引擎激活（即非原生Windows样式启用时），单个窗体的StyleName设置才能被识别和应用。

方法1：强制激活样式引擎并单独应用样式到预览窗体 #

通过手动激活样式引擎，再将指定样式单独绑定到预览窗体，无需改变全局样式：

procedure TConfigForm.btnStylePreviewClick(Sender: TObject);
begin
  var frmStylePreview := TFrmStylePreview.Create(self);
  try
    // 确保样式引擎处于激活状态
    if not TStyleManager.IsStyleActive then
      TStyleManager.SetStyle('Windows'); // 激活引擎，保留原生样式作为基础

    // 将选中的样式单独应用到预览窗体
    if TStyleManager.StyleExists(cbStyle.Text) then
      TStyleManager.SetStyle(cbStyle.Text, frmStylePreview);

    frmStylePreview.ShowModal();
  finally
    frmStylePreview.Free;
  end;
end;

方法2：为预览窗体手动添加样式钩子 #

在预览窗体的OnCreate事件中手动绑定样式钩子，绕过全局样式的限制：
首先修改预览窗体的代码：

procedure TFrmStylePreview.FormCreate(Sender: TObject);
begin
  // 移除默认样式钩子（如果存在）
  RemoveStyleHook(Self);
  // 为当前指定的样式添加对应的钩子类
  if (StyleName <> '') and TStyleManager.StyleExists(StyleName) then
  begin
    var StyleHookClass := TStyleManager.Style[StyleName].GetStyleHookClass(Self.ClassType);
    if Assigned(StyleHookClass) then
      AddStyleHook(Self, StyleHookClass);
  end;
end;

然后修改主窗体的按钮点击事件，确保样式引擎激活：

procedure TConfigForm.btnStylePreviewClick(Sender: TObject);
begin
  var frmStylePreview := TFrmStylePreview.Create(self);
  try
    if not TStyleManager.IsStyleActive then
      TStyleManager.SetStyle('Windows');

    frmStylePreview.StyleName := cbStyle.Text;
    frmStylePreview.ShowModal();
  finally
    frmStylePreview.Free;
  end;
end;

方法3：临时切换全局样式，预览后恢复 #

如果允许临时改变整个应用的样式，可先保存当前样式，切换到选中样式预览后再恢复：

procedure TConfigForm.btnStylePreviewClick(Sender: TObject);
var
  OriginalStyleName: string;
begin
  // 保存当前激活的样式名称
  if TStyleManager.IsStyleActive then
    OriginalStyleName := TStyleManager.ActiveStyle.Name
  else
    OriginalStyleName := 'Windows';

  try
    // 切换到选中的样式
    if TStyleManager.StyleExists(cbStyle.Text) then
      TStyleManager.SetStyle(cbStyle.Text);

    var frmStylePreview := TFrmStylePreview.Create(self);
    try
      frmStylePreview.ShowModal();
    finally
      frmStylePreview.Free;
    end;
  finally
    // 恢复原来的样式
    TStyleManager.SetStyle(OriginalStyleName);
  end;
end;

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