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

  

I have 2 StyleBooks loaded with custom styles and want them to be applied for all forms at once (testing it on windows, Tokyo 10.2.3).

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

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

If I set UseStyleManager=true, this code doesn’t work. If UseStyleManager=false, it works but only for 1 form.

Comments are closed.