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

Sal*_*dor 3 delphi delphi-xe2 vcl-styles

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

在此输入图像描述

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

RRU*_*RUZ 12

只是默认VCL风格钩分配TStyleHookTProgressBar组件,并在这样的进度条将与Windows外观来绘制和感觉.

 TStyleManager.Engine.RegisterStyleHook(TProgressBar, TStyleHook);
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述