TProgressBar永远不会填满-似乎更新速度太快了吗？ [重复]

如何解决TProgressBar永远不会填满-似乎更新速度太快了吗？ [重复]

|                                                                                                                   这个问题已经在这里有了答案：                                                      

解决方法

这是Vista主题的功能。解决此功能的唯一已知方法是在更新过程中向后退。 每次将进度条计数器设置为N之后，立即将其设置为N-1。 Delphi代码没有错，这是通用控件的功能。