FireMonkey：如何在所有表单运行时更改 styleBook 的样式？

Question

我有 2 个加载了自定义样式的样书，希望它们一次应用于所有表单（在 windows、东京 10.2.3 上测试）。

procedure TForm6.Button1Click(Sender: TObject);
  begin
    StyleBook := StyleBook2;
  end;

  procedure TForm6.Button2Click(Sender: TObject);
  begin
    StyleBook := StyleBook1;
  end;

如果我设置 UseStyleManager=true，此代码将不起作用。如果 UseStyleManager=false，它有效，但仅适用于 1 个表单。

Answer 1

您可以使用 Application.Components[] 访问每个表单并设置其 StyleBook 属性。为两个样式手册保留 UseStyleManager = False。

添加到主窗体：

type
  TForm14 = class(TForm)
    ...
  private
    procedure ChangeApplicationStyle(sb: TStyleBook);

并实施：

procedure TForm14.ChangeApplicationStyle(sb: TStyleBook);
var
  i: integer;
begin
  for i := 0 to Application.ComponentCount - 1 do
    if Application.Components[i] is TForm then
      TForm(Application.Components[i]).StyleBook := sb;
end;

终于要改了，例如：

procedure TForm14.Button1Click(Sender: TObject);
begin
  ChangeApplicationStyle(StyleBook1);
end;

procedure TForm14.Button2Click(Sender: TObject);
begin
  ChangeApplicationStyle(StyleBook2);
end;

FireMonkey：如何在所有表单运行时更改 styleBook 的样式？

FireMonkey: How do I change styleBook's style on all forms runtime?

delphi

styles

firemonkey