Delphi在StatusBar上绘制ProgressBar

最新推荐文章于 2024-05-06 12:52:46 发布

转载最新推荐文章于 2024-05-06 12:52:46 发布 · 473 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/yzryc/p/6398396.html

本文介绍如何在TForm中利用TProgressBar组件结合StatusBar显示进度条，并通过Button点击事件触发进度更新，实现状态栏进度条的动态展示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

首先，在TForm的私有域，也就是private下设置两个变量ProgressBar、ProgressBarRect，其中ProgressBar为 TProgressBar类型，ProgressBarRect为TRect类型，完整的定义如下：

type
  TForm1 = class(TForm)
    ......
  private
    ProgressBar: TProgressBar;
    ProgressBarRect: TRect;
  end;

然后在StatusBar的DrawPanel事件中添加代码：

  ProgressBarRect := Rect;

完整代码如下：

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  ProgressBarRect := Rect;
end;

最后我们用一个Button组件来测试，代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  i, StepCount: integer;
begin
  ProgressBar := TProgressBar.Create(Form1);
  StepCount := 10000;
  with ProgressBar do
  begin
    Top := ProgressBarRect.Top;
    Left := ProgressBarRect.Left;
    Width := ProgressBarRect.Right - ProgressBarRect.Left;
    Height := ProgressBarRect.Bottom - ProgressBarRect.Top;
    Visible := True;
    //Smooth := True;

    try
      Parent := StatusBar1;
      Min := 0;
      Max := StepCount;
      for i := 1 to stepCount do
      begin
        StepIt;
      end;
      MessageDlg('状态栏进度条演示操作已完成！', mtInformation, [mbOK], 0);
    finally
      Free;
    end;
  end;
end;