Delphi7——ProgressBar（进度条）控件

Delphi7如何制作进度条？

步骤如下：

1.找到win32的ProgressBar控件。

2.将ProgressBar.Max:=x; //x为进度条的长度

3.ProgressBar.Position:=ProgressBar.Position+y; //y为每次进度条增加的进度，可以设置条件或循环驱动，如：for、if、Button等

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

unit happy;

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帮你完成的。

希望本文可以帮到您