delphi - 如何启用应用程序范围的配色方案？

Question

我想将配色方案应用于我的应用程序。这是通过将所有组件的 ParentColor 设置为 true 以及 ParentBackground 和 ParentFont 来完成的。当我改变表格颜色时，一切都会改变。有一个异常(exception):工具栏和工具按钮不会改变。是否可以使用表单的颜色来更改它们，或者我必须以单独的方式实现它？

字体颜色也是如此，但有点奇怪。当我更改表单的字体颜色时，组框标题的字体颜色不会更改，但标签标题的标题(也在组框内)会发生变化。

当实现某种方法来允许用户选择自己的颜色时，这是可行的方法(更改表单颜色，使所有组件都设置 ParentColor )还是有更好的方法来实现此目标？

Answer 1

实现此目的的一种方法是使用接口(interface)。

这是一些(手动)工作，但如果您想以简单的方式完成它，您可以简单地定义一个接口(interface)并确保所有表单都实现该接口(interface)。

例如:

type ITheme = interface
  procedure SetTheme(const AColor : TColor);
end;

然后在每个表单中您都可以实现这个接口(interface)。

因此，要更改所有表单的颜色，您只需调用 1 个函数:

procedure SetGlobalTheme(const AColor : TColor);
var Intf : ITheme;
begin
  for i:=0 to screen.Formcount-1 do
  begin
    if Supports(Screen.Forms[i],ITheme,intf) then
      intf.SetTheme(AColor);
  end;
end;

使用此方法，您可以完全控制每个组件的颜色，尽管需要完成一些更多的编码。另一种方法是使用 David 建议的 VCL 样式(如果您的 IDE 支持)