我有一个带有 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);
最佳答案
进度条是系统绘制的,您无法选择 block 大小。相反,您可以使用平滑的进度条。将 Smooth
属性设置为 True
。
关于delphi - 更改 TProgressBar 的视觉步长?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35312666/