Delphi 下 TProgressBar的使用

最新推荐文章于 2023-12-19 23:45:53 发布

原创最新推荐文章于 2023-12-19 23:45:53 发布 · 5.5k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #界面 #TProgressBar

Delphi 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个简单的TProgressBar使用示例，展示了如何通过设置进度条的最大值和当前位置来实现进度显示。程序采用Delphi语言编写，适用于需要实现进度条功能的应用场景。

通过例子来简单了解下TProgressBar的使用。

pas文件程序如下

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TForm4 = class(TForm)
    progress: TProgressBar;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  try
    progress.Max := 100;
    for I := 0 to 100 - 1 do
    begin
      Application.ProcessMessages;
      progress.Position := I;
      Sleep(50);
    end;
  finally
    //progress.Max := 0;
  end;
  
end;

end.

fram文件如下：

object Form4: TForm4
  Left = 0
  Top = 0
  Caption = 'Form4'
  ClientHeight = 300
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object progress: TProgressBar
    Left = 0
    Top = 283
    Width = 635
    Height = 17
    Align = alBottom
    TabOrder = 0
  end
end

实际运行结果如图所示：