YB_unique(2001-11-07 22:15)
Example：
在状态栏动态加进度条
一般情况下，我们可以创建非模式对话框并在上面显示进度条。如果能够利用状态条，在状态条中动态地添加并
显示进度条，将会更加方便直观。下面将讲述如何在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;
卷起千堆雪tyn(2001-11-07 22:17)
procedure TForm1.Button1Click(Sender: TObject);
var
i :Integer;
begin
for i :=0 to 99 do
begin
Sleep(10);
ProgressBar1.Position :=i+1;
end;
ShowMessage('卷起千堆雪');
end;
lyq2276959(2001-11-07 22:38)
在form1中放一按钮,并使用form2,在form2中放上进度条,标签等其它控件,
进度条的属性设置:
min 最小值 0
max 最大值 999
position 当前进度位置 0
step 指定变化速率 1
方法:
stepby(大小) 按指定大小变化
stepit 按指定速率变化
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
form2.Show;
form2.Update; 若没有此句则标签或其它控件不可见.
for i:=1 to 999 do
form2.ProgressBar1.StepIt; 按指定的速率变化(速率为1)
end;
运行程序,单击按钮即可.
dreamblue(2001-11-07 22:46)
谢谢大家的细心教诲，我想给大家都加上分，但不知道如何加，怎么办。
感觉这里比csdn好多了
大丁(2001-11-07 22:52)
var
i:integer;
begin
progressbar1:=Tprogressbar1.create(self);
try
progressbar1.parent:=self;
progressbar1.min=0;
progressbar1.max:=Total;//自己設置
progressbar1.step:=StepQ://設置重復次數
For i:=1 to Total do progressbar1.Stepit;
showmessage('success!');
Finally
progressbar1.Free;
End;
End;
bbs_delphi(2001-11-08 08:41)
来晚了
jxyghm(2001-11-08 08:50)
type
TForm1 = class(TForm)
Button1: TButton;
ge: TProgressBar;
procedure Button1Click(Sender: TObject);
private
fm :Tform;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
ge.Visible := true;
fm := Tform.Create(self);
fm.BorderIcons :=[];
fm.Caption := '正在处理数据';
ge.Height :=25;
ge.Width :=300;
ge.Parent := fm;
fm.Height :=ge.height+28;
fm.Width :=ge.Width+10;
fm.Position :=Poscreencenter;
ge.Left := fm.Left ;
ge.Top := fm.Top;
fm.Show;
ge.Max :=300;
ge.position := 0;
for i:=0 to 300 do
begin
ge.Position := ge.Position +1;
sleep(50);
end ;
ge.Parent := form1;
fm.Free;
ge.Visible := false;
end;
