delphi - vclスタイルが有効になっている場合、ネイティブプログレスバーを使用するにはどうすればよいですか？

Question

pbstMarqueeスタイルのプログレスバーを使用する必要があります。この質問を読んで、受け入れられた回答は正常に機能しますが、ネイティブのプログレスバーを描画する必要があります

vclスタイルが有効になっている場合、ネイティブプログレスバーを使用するにはどうすればよいですか？

Answer 1

コンポーネントにデフォルトのvclスタイルフックTStyleHook を割り当てるだけTProgressBarで、プログレスバーがWindowsのルックアンドフィールで描画されます。

 TStyleManager.Engine.RegisterStyleHook(TProgressBar, TStyleHook);