德尔福 10 西雅图样书无法在其他表单中正确设置，然后是 Main

Question

我的MainForm上有3个样本，用户可以从中选择。设置完成后，我还为其他表单设置了相同的样本。大多数样书样式都设置正确，但我有 1 个工具栏没有设置正确的颜色，似乎保持初始颜色。

我已经尝试了 2 种方法来设置样本。

方法一：

从其他形式它自己与：

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

方法2：

在我的主窗体中创建其他窗体时。

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

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

有人对此有解决方案吗？

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

Answer 1

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

对于没有获得正确样式的组件，我在运行时的 FormActivate 事件中再次设置了它们的样式查找。

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