delphi - 如何在 Delphi 中管理 TProgressBar 并在 TImage 上完成流程？

Question

我的表单上有一个进度条和一张图像。现在我正在对图像上的每条扫描线进行一些处理。我想使用进度条显示我的流程的进度。我设置了进度条的以下属性:

Max = 20
Min = 0
Position = 0
Step = 1
Smooth = False

现在我在buttonclick事件上的代码如下:

   stat := imgmain.Picture.Bitmap.Height div pbImage.Max;
   Curstatus := 0;
   for cnt := 0 to img.Picture.Bitmap.Height - 1 do begin
      for cnt1 := 0 to img.Picture.Bitmap.Width - 1 do begin
        //Some processing
      end;
      if cnt > (Curstatus + stat) then begin
         pgimg.StepIt;
         Curstatus := cnt + stat;
      end;    
   end;

我的问题是，当我运行此代码时，if block 恰好执行了 20 次，但进度条上显示了 20 多个步骤。最后一步也显示不完整。请注意，smooth 属性设置为 false。

Answer 1

与

Max = 20 
Min = 0 

您的进度条实际上有 21 个步骤，其中 0 是第一个步骤，20 是最后一个步骤。将 Max 设置为 19，它应该可以工作。