Delphi编程中在状态栏动态添加进度条
来源:互联网 发布:手机无线鼠标软件 编辑:程序博客网 时间:2024/06/07 00:01
Delphi编程中在状态栏动态添加进度条
[ 探索在线|2005-06-16 12:20:38 | 作者: Admin ]
一般情况下,我们可以创建非模式对话框并在上面显示进度条。如果能够利用状态条,在状态条中动态地添加并显示进度条,将会更加方便直观。下面将讲述如何在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;
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
{进度条组件的尺寸设定为状态条中的第二个显示面板的尺寸,
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;
通过这种方法我们就可以在状态条中动态地添加进度条,同样的原理还用于在状态栏中添加其他的组件,过程基本一致。以上程序在Delphi 5、Windows98中调试通过。
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;
通过这种方法我们就可以在状态条中动态地添加进度条,同样的原理还用于在状态栏中添加其他的组件,过程基本一致。以上程序在Delphi 5、Windows98中调试通过。
- Delphi编程中在状态栏动态添加进度条
- delphi编程中在状态栏动态添加进度条
- [Delphi程序开发]delphi编程中在状态栏动态添加进度条
- 状态栏中添加进度条
- 在状态栏中加载进度条
- 在状态栏中加载进度条
- 孙鑫VC++深入详解:Lesson9 Part6---在状态栏中添加进度条
- VS2010-MFC下在状态栏中添加进度条用于显示当前文件的读取进度
- MFC在状态栏中使用进度条控件
- 状态栏添加进度条
- vc状态栏添加进度条
- 状态栏中实现进度条
- VC技巧:在程序的状态栏中实现进度条
- VC技巧:在程序的状态栏中实现进度条
- VC技巧 在程序的状态栏中实现进度条
- VC技巧 在程序的状态栏中实现进度条
- 在状态栏中插入类似进度条的可视控件
- 在win32程序中添加工具栏状态栏
- 关于爱情与等待
- 第一个项目(LIMS)管理经验阶段总结-测试版(待续)
- PHP 文件的分割
- 用Java实现断点续传
- 用Java2标准版本(J2SE)1.4进行Internet安全编程
- Delphi编程中在状态栏动态添加进度条
- DataGrid动态添加自定义模板列
- 沥青摊铺06年4月28日全部完成 铁路上海南站发车在即
- SQL Server补丁安装常见问题(更新)
- 清除Sqlserver 日志的办法
- 改良版的大学生厚黑学手册摘要
- jmail组件的详细说明
- 毕业设计(八)
- 测试Set的打印输出