unit1.pas

精彩编程百例1~25例

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Count:Integer;

implementation

{$R *.DFM}





procedure TForm1.FormCreate(Sender: TObject);
begin
Count:=100000;
ProgressBar1.Min:=0;
ProgressBar1.Max:=Count;
end;
//处理按钮事件，演示进度条的进展状况
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
Form1.ProgressBar1.Position:=0;
Form1.ProgressBar1.Step:=1;
for i:=1 to Count do
Form1.ProgressBar1.StepIt;
end;

end.