Delphi 10 Seattle Stylebookは他のFormsのメインフォームに正しく設定されていません

Question

メインフォームに3つのスタイルブックがあります。それが設定されると、私は他のフォームにも同じスタイルブックを設定します。スタイルブックスタイルのほとんどは適切に設定されていますが、適切な色が設定されていない1つのツールバーがあり、初期の色を維持するようです。

私はすでにスタイルブックを設定する2つの方法を試しました。

方法1：私のMainFormに他のフォームを作成するには

：

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

方法2：とそれ自身他のフォームから

。

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

これらの両方の方法で同じ結果が得られました。私がこれを解決できる唯一の方法は、実際にStyleBooksを他のフォームのデザイナーにも追加することです。しかし私はむしろそれをしない。

誰にでも解決策がありますか？

更新： 私は、画面を回転させた後にスタイルの色が設定されることにも気付きました。

Answer 1

私は私の問題の解決策を見つけました。

正しいスタイルが得られないコンポーネントについては、FormActivateイベントで実行時にstylelookupを再度設定します。

理由はわかりませんが、これは私のスタイルの問題を解決しました。 FormActivateで設定する必要があります。私もFormCreateで設定しようとしましたが、うまくいきませんでした！