使用自定义样式无法调用最新通用对话框 仅默认Windows主题生效

开发了支持浅色、深色双模式的Windows 11 Modern风格应用，测试中发现通用对话框存在如下异常：

• 加载任意自定义VCL样式时，通用对话框会回退为旧版系统样式，且无法正常显示映射网络驱动器
• 切回Windows默认主题后，所有通用对话框均可正常展示映射网络驱动器
  已设置UseLatestCommonDialogs:=true，但启用自定义主题时该配置未生效；先后尝试在StyleManager加载样式前、后分别设置该参数，问题依旧，需要找到强制应用加载最新版通用对话框的实现方案。

效果对比 #

• 期望实现的对话框样式：
  
• 启用"Windows11 Modern Light"样式时实际显示的对话框样式：
  

问题根源是VCL样式引擎默认会通过系统hook接管通用对话框的绘制逻辑，强制套用自定义样式覆盖系统原生渲染，这个逻辑优先级高于UseLatestCommonDialogs配置，因此单独修改该参数无法生效，按以下步骤即可修复：

1. 关闭VCL对通用对话框的样式接管
   在项目初始化阶段（主窗体OnCreate事件或项目dpr文件的初始化段）添加如下代码：

   uses
     Vcl.Themes;
   
   begin
     Application.Initialize;
     Application.MainFormOnTaskbar := True;
     // 移除对话框类的系统hook，让VCL不拦截原生对话框创建逻辑
     TStyleManager.SystemHooks := TStyleManager.SystemHooks - [shDialogs];
     UseLatestCommonDialogs := True;
     Application.CreateForm(TMainForm, MainForm);
     Application.Run;
   end.
   

   该配置不会影响主界面、自定义窗体的VCL样式渲染，仅放开系统通用对话框的原生调用权限，对话框会直接加载系统最新版本，映射网络驱动器显示异常、样式回退的问题会同步解决。
2. 明暗主题适配（可选）
   如果需要让原生通用对话框跟随应用的浅色/深色模式自动切换，可在切换应用样式的逻辑中补充DWM接口调用，在对话框弹出时设置对应窗口的深色模式属性即可：

   uses
     Winapi.DwmApi, Winapi.Windows;
   
   const
     DWMWA_USE_IMMERSIVE_DARK_MODE = 20;
   
   procedure ApplyDialogTheme(WndHandle: HWND; IsDarkMode: Boolean);
   var
     AttrValue: Integer;
   begin
     AttrValue := Ord(IsDarkMode);
     DwmSetWindowAttribute(WndHandle, DWMWA_USE_IMMERSIVE_DARK_MODE, @AttrValue, SizeOf(AttrValue));
   end;
   

   直接在通用对话框的OnShow事件中传入对话框句柄、当前是否为深色模式调用该方法，原生对话框就会自动匹配当前应用的主题风格，不会和整体Modern UI产生割裂感。
3. 注意事项
   • 后续代码中不要重复给TStyleManager.SystemHooks赋值，避免覆盖上述配置
   • 确认程序manifest已声明对Windows 10/11通用控件v6的支持，否则系统仍会加载旧版通用对话框
   • 如果使用Delphi 11.0之前的版本，部分VCL版本存在shDialogs标记过滤不彻底的问题，可借助VCL Styles Utils库单独排除对话框类的样式hook，不需要修改VCL源码

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