【发布时间】：2012-05-09 19:39:33
【问题描述】：
我需要使用 pbstMarquee 样式的进度条，我阅读了这个question 并且接受的答案工作正常，但现在我需要绘制原生进度条
启用 vcl 样式后如何使用本机进度条？
【问题讨论】：
标签： delphi delphi-xe2 vcl-styles
【发布时间】：2012-05-09 19:39:33
【问题描述】：
只需将默认的 vcl 样式挂钩 TStyleHook 分配给 TProgressBar 组件，这样进度条就会以 Windows 的外观和感觉绘制。
TStyleManager.Engine.RegisterStyleHook(TProgressBar, TStyleHook);
【讨论】：
德尔福：Form1.ProgressBar1.StyleElements := [seClient, seBorder, seFont];
C++：Form1->ProgressBar1->StyleElements = TStyleElements();
【讨论】：