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