delphi – 如何在启用vcl样式时使用本机进度条？

我需要使用带有pbstMarquee样式的进度条,我读了这个 question并且接受的答案工作正常,但现在我需要绘制原生进度条

启用vcl样式时如何使用本机进度条？

只需将默认的vcl样式钩子 TStyleHook分配给 TProgressBar组件,这样就可以使用Windows外观绘制进度条.

TStyleManager.Engine.RegisterStyleHook(TProgressBar, TStyleHook);