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

时间:2012-05-09 19:39:34

标签: delphi delphi-xe2 vcl-styles

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

enter image description here

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

2 个答案:

答案 0 :(得分:12)

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

 TStyleManager.Engine.RegisterStyleHook(TProgressBar, TStyleHook);

enter image description here

答案 1 :(得分:1)

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

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