[Delphi程序开发]delphi编程中在状态栏动态添加进度条

======================================================
注：本文源代码点此下载
======================================================

delphi编程中在状态栏动态添加进度条

关键字:进度条

一般情况下,我们可以创建非模式对话框并在上面显示进度条。如果能够利用状态条,在状态条中动态地添加并显示进度条,将会更加方便直观。下面将讲述如何在delphi 5中编程实现在状态条中动态地添加进度条。具体的过程如下:

1.在delphi 5中通过菜单“file/new application”创建一个新的工程。

2.在窗体中添加一个状态栏组件statusbar1,一个button组件button1。在状态栏编辑器中为状态栏添加两个显示面板,因为后面将要在第二个面板中显示进度条,所以将第二个面板的style属性设置为psownerdraw。将button1组件的caption属性设置为“演示操作”。

3.在unit1.pas文件的tform1的类型定义中添加下面的变量定义:

......

private

{ private declarations }

progressbar:tprogressbar;// 进度条组件

progressbarrect:trect; // 进度条组件的尺寸

public

{ public declarations }

......

4.在状态栏的ondrawpanel事件的处理过程中,获取将style属性设置为psownerdraw的面板的尺寸。添加statusbar1组件的ondrawpanel事件的处理过程如下:

procedure tform1.statusbar1drawpanel(statusbar: tstatusbar;

panel: tstatuspanel; const rect: trect);

begin

// 进度条组件的尺寸设定为状态条中的第二个显示面板的尺寸,因为该面板的style属性已被设置为psownerdraw

progressbarrect:=rect;

end;

5.在按下按钮button1组件时将执行一个模拟计算过程的循环操作,同时动态地在statusbar1的第二个面板中创建并显示progressbar组件,并将其父级设置为statusbar1组件。添加button1组件的onclick事件的处理过程如下:

procedure tform1.button1click(sender: tobject);

var

// i为循环变量, stepcount为执行循环的总数目

i,stepcount : integer;

begin

//动态创建进度条组件progressbar

progressbar:=tprogressbar.create(form1);

stepcount:=10000; // 循环的总数目

with progressbar do

begin

// 先确定进度条组件的尺寸和位置

top:=progressbarrect.top;

left:=progressbarrect.left;

width:=progressbarrect.right-progressbarrect.left;

height:=progressbarrect.bottom-progressbarrect.top;

visible:=true; // 使进度条可见

try

parent:=statusbar1; // parent属性设置为状态栏组件

min:=0;// 设定进度条的范围和步长

max:=stepcount;

step:=1;

for i:=1 to stepcount do

begin

stepit;// 循环使进度显示条累加

end;

messagedlg(′演示操作已经完成!′, mtinformation, [mbok], 0);

finally

free;// 最后释放进度条组件占用的资源

end;

end;

end;

通过这种方法我们就可以在状态条中动态地添加进度条,同样的原理还用于在状态栏中添加其他的组件,过程基本一致。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/