delphi - Delphi 10 Seattle-具有VCL样式的Vista对话框错误

Question

昨天我在“ Delphi 10 Seattle”中遇到了“ Vista对话框”问题。对于某些VCL样式，它似乎不能很好地工作。
在我的应用中使用“ Windows 10 Dark”作为默认样式时，发生了此错误。
因此，我立即想到Vista对话框不适用于自定义VCL样式，但是当使用“ Windows”作为默认样式并将Windows 10用作OS时，对话框可以正常工作。

我上传了两张图片，其中一张的样式显示了视觉错误，另一张没有样式，效果很好。

没有应用“ Windows 10 Dark” VCL样式



应用“ Windows 10 Dark” VCL样式



我对此进行了研究，在其他帖子中提到了此错误，但是此错误与这些帖子无关。
有人知道为什么会这样吗？以及如何解决？

Answer 1

RAD Studio中包含的VCL Styles版本只能设置经典对话框的样式。如果要完全支持“新建对话框”，则必须使用VCL Styles Utils项目。

只需安装库并将这些单元添加到您的项目中即可。

uses
  Vcl.Styles.Utils.Menus, //Popup and Shell Menus (class #32768)
  Vcl.Styles.Utils.Forms, //dialogs box (class #32770)
  Vcl.Styles.Utils.StdCtrls, //buttons, static, and so on
  Vcl.Styles.Utils.ComCtrls, //SysTreeView32, SysListView32
  Vcl.Styles.Utils.ScreenTips, //tooltips_class32 class
  Vcl.Styles.Utils.SysControls,
  Vcl.Styles.Utils.SysStyleHook;