delphi – 如何使TProgressBar停止滞后？

我刚才遇到了完全相同的问题.在搜索谷歌很长一段时间后,我发现这是一个特定于Vista的问题.它似乎归结为：微软为Vista中的进度条控件添加了精美的动画(即移动的’突出显示’).为了使更新更加顺畅,他们在控件的重绘中实现了某种“滞后” – 这基本上会使整个进度条控制起来.我会说,相当烦人,特别是因为似乎没有一个像样的解决方案.

有关详细信息,请参阅Arvid Winkelsdorf对this Embarcadero Discussion Forum post的回复：

It’s the same for VB,C++ and C#
somehow as the problem lies in the
Vista drawing of the new animated
ProgressBars. To provide a smoother
visual feedback drawing is delayed
when moving forward. Your application
cannot be sure that 100% will be
reached at any given time.

By setting the position back to a
smaller value,the ProgressBar drawing
is forced to jump back. No delay in
getting to a position smaller than the
current. So you’ll have nearly 100%
immediately. Afterwards set to the
maximum and you’ll have exactly 100%.

[…]

There is a similar glitch when using the new Vista ProgressBar Styles like PB Paused or PB Error. If the bar is still moving (MS part) and your app sets the color to paused by SendMessage (like in D2009) the message will be ignored by the ProgressBar.