Delphi7·ProgressBar控件

最新推荐文章于 2024-07-19 11:46:30 发布

willbe233

最新推荐文章于 2024-07-19 11:46:30 发布

阅读量6.4k

点赞数 3

分类专栏： Delphi代码学习文章标签： delphi

本文链接：https://blog.csdn.net/weixin_41221124/article/details/79341231

版权

Delphi代码学习专栏收录该内容

1 篇文章 0 订阅

订阅专栏

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

希望本文可以帮到您