delphi - 设置主题状态栏组件的背景色

如何设置主题TStatusBar组件的背景颜色？设置color属性时，仅当Enabled runtime themes被禁用时，它才有效。

提前致谢。

最佳答案

不知道这是否正是您所需要的，但是您可以为特定的控件（在本例中为状态栏）简单地禁用“主题绘画”，如下所示：

Uses
  uxTheme;

SetWindowTheme(StatusBar1.Handle, '', '');