Delphi7·ProgressBar控件

Delphi7如何制作进度条？

步骤如下：
1.找到win32的ProgressBar控件。
2.将ProgressBar.Max:=x; //x为进度条的长度
3.ProgressBar.Position:=ProgressBar.Position+y; //y为每次进度条增加的进度，可以设置条件或循环驱动，如：for、if、Button等

更多属性就不多说了，代码例子如下（在此选择的用Button控件（按钮）驱动）：

unit a;

interface

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

type
     TForm1 = class(TForm)
         Button1: TButton; 
         ProgressBar1: TProgressBar;
         procedure Button1Click(Sender: TObject);
         procedure ProgressBar1ContextPopup(Sender: TObject; MousePos: TPoint;var Handled: Boolean);
     private
        { Private declarations }
     public
        { Public declarations }
     end;

var
     Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
      ProgressBar1.Max:=100;//将进度条长度设为100
      ProgressBar1.Position:=ProgressBar1.Position+1;//每次增加%1
end;

end.

如上，一个简单的进度条程序完成了，实现不难，大部分（如定义）都是Delphi7帮你完成的。