主页 / 问题 / 677043
Accepted
Gu.
Asked:2020-06-09 02:33:50 +0000 UTC2020-06-09 02:33:50 +0000 UTC

我怎么知道是否应用了皮肤（Vcl.Styles）？

  • 772

D 10.1 启动器。标准应用。选项包括皮肤。问题：如何以编程方式查明当前是否应用了某种设计方案或标准设计风格？

如果应用了方案，那么在项目文件中我们会看到（例如）：

...
TStyleManager.TrySetStyle('Amethyst Kamri'); *
...

如果在项目选项中选择了方案，但默认设计设置为“Windows”，则项目中没有类似的 (*)

你需要这样的功能

Function IsAppThemed:boolean;
begin
 Result := <..?..>
end;
delphi

1 个回答

  1. Best Answer

    成立：

    function IsAppThemed: Boolean;
begin
  Result := TStyleManager.Enabled and TStyleManager.IsCustomStyleActive;
end;
    • 4

相关问题