[Delphi程序开发]delphi编程中在状态栏动态添加进度条_delphi文章/教程_其他教程_编程语言

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

2023-02-09 学习力0

核心提示：delphi编程中在状态栏动态添加进度条关键字：进度条一般情况下，我们可以创建非模式对话框并在上面显示进度条。如果能够利用状态条，在状态条中动态地添加并显示进度条，将会更加方便直观。下面将讲述如何在Delphi 5中编程实现在状态条中动态地添加进度条。

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;
　　通过这种方法我们就可以在状态条中动态地添加进度条，同样的原理还用于在状态栏中添加其他的组件，过程基本一致。

免责声明：本文仅代表作者个人观点，与乐学笔记（本网）无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
本网站有部分内容均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责，若因作品内容、知识产权、版权和其他问题，请及时提供相关证明等材料并与我们留言联系，本网站将在规定时间内给予删除等相关处理.