delphi - 启用 vcl 样式后如何使用本机进度条？

Question

我需要使用pbstMarquee风格的进度条，我阅读了这个问题并且接受的答案工作正常，但现在我需要绘制原生进度条

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

Answer 1

只需将默认的 vcl 样式挂钩分配给TStyleHook 组件TProgressBar，这样进度条就会以 Windows 的外观和感觉绘制。

 TStyleManager.Engine.RegisterStyleHook(TProgressBar, TStyleHook);

Answer 2

德尔福：Form1.ProgressBar1.StyleElements := [seClient, seBorder, seFont];

C++：Form1->ProgressBar1->StyleElements = TStyleElements();