Delphi 下 TProgressBar的使用

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

pas文件程序如下

unit Unit4;interfaceuses  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  endend

实际运行结果如图所示：

以上程序即可简单的使用TProgressBar。