delphi - 更改 TProgressBar 的视觉步长？

Question

我有一个带有 TProgressBar 的表单，设置如下:

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

在表单启动时启动一个间隔为 1000 毫秒的计时器，每次计时器滴答时进度条都会步进。 60 秒后，条形图几乎已满(参见图片，带有显示耗时的调试标签)，但条形图中只有约 19.5 个 block ，而不是我预期的 60 个。这意味着您大约每 3 秒只能看到一个步骤。

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

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

Answer 1

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