改变TProgressBar的视觉步长？

Question

我有一个TProgressBar的表单设置如下：

myProgressBar.Step := 1;
myProgressBar.Min := 0;
myProgressBar.Max := 60;
myProgressBar.Position := 0;

在表格开始时启动间隔为1000毫秒的计时器，每个计时器勾选进度条。 60秒后，条形图几乎已满（参见图片，调试标签显示已经过去的时间）但是栏中只有~19.5块，而不是我预期的60块。这意味着你只能看到每3秒左右一步。

我能做些什么吗？设计师中没有任何暴露的属性似乎有所帮助。如果这解决了问题，我很乐意向控件发送消息。例如，我在其他地方使用此代码在运行时更改进度条的颜色：

SendMessage(pbBin1.Handle, PBM_SETBARCOLOR, 0, clLime);

Answer 1

进度条由系统绘制，您无法选择块大小。相反，您可以使用平滑的进度条。将Smooth属性设置为True。