Delphi 10 Seattle Stylebook在其他表格中没有正确设置,然后是主

时间:2016-04-28 07:13:08

标签: css delphi firemonkey delphi-10-seattle

我的MainForm上有3个Stylebook,用户可以选择。一旦设置完毕,我也为其他表单设置了相同的样书。大多数Stylebook样式设置正确,但我有1个工具栏,没有设置正确的颜色,似乎保持最初的颜色。

我已经尝试了两种设置样式手册的方法。

方法1:

从另一个表格中自我:

Self.StyleBook := TForm(Application.MainForm).StyleBook;

方法2:

在我的MainForm中创建其他表单。

Form2 := TForm2.Create(nil);
Form2.StyleBook := Self.StyleBook;
Form2.Show;

这两种方法都给出了相同的结果。我能够解决这个问题的唯一方法就是在设计师中为其他形式添加样书。但我宁愿不这样做。

有人有解决方案吗?

更新 我还注意到旋转屏幕后样式颜色确实设置了。

1 个答案:

答案 0 :(得分:0)

我找到了解决问题的方法。

对于没有获得正确样式的组件,我在FormActivate事件中再次在运行时设置了stylelookup。

不知道为什么,但这解决了我的风格问题。它需要在FormActivate中设置。我也尝试在FormCreate中设置它,但那不起作用!