delphi - TProgressBar 永远不会填满 - 似乎更新得太快？

Question

这个问题已经有答案了:

已关闭 11 年前。

Possible Duplicate:
Windows 7 Aero Theme Progress Bar Bug?

自从 Windows Vista 以来，我注意到 Delphi 中的 TProgressBar 存在错误/问题。

问题是进度条似乎永远不会填满 100%，有时在进度条认为达到最大值(即 100%)之前它可能会达到 70% - 80%

我一直在各个网站上阅读，事实上，进度条已经完成了它的操作。但Delphi VCL似乎有一个bug，没有准确地绘制进度条，所以当它看起来完整但实际上并不完整时，这是因为进度条的绘制不准确。

如果上述情况属实，这似乎是一个合理的理由 - 我还没有找到解决方案。无论涉及 TProgressBar 的操作是什么，它都不会填满 100%，它可能只填满 75%。

如何让 TProgressBar 准确填充？

补充一下，我尝试用 JVCL 中的进度条替换 TProgressBar，并且那些非标准 VCL 组件可以正常工作。所以这不是我如何处理进度的问题，要么是 Delphi，要么是 Windows，或者两者都是。

是的，我可以使用上述替代方案，但如果可能的话，我想知道如何修复标准 TProgressBar。

谢谢，克雷格。

Answer 1

这是 Vista 主题的功能。解决此功能的唯一已知方法是在更新期间向后退。

每次将进度条计数器设置为 N 后，立即将其设置为 N-1。

Delphi代码没有任何问题，这是公共(public)控件的一个特性。