网上文摘 最近更新 下载排行 资源分类 下载指南
经典编程资源 精彩不容错过
设为首页
加入收藏
联系我们
当前位置:Delphi园地技巧文章控件使用 → Delphi编程中在状态栏动态添加进度条
Delphi编程中在状态栏动态添加进度条
日期:2004-12-28 作者: 人气: 查看:[大字体 中字体 小字体]

一般情况下,我们可以创建非模式对话框并在上面显示进度条。如果能够利用状态条,在状态条中动态地添加并显示进度条,将会更加方便直观。下面将讲述如何在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.RightProgressBarRect.Left;

  Height:=ProgressBarRect.BottomProgressBarRect.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 5Windows98中调试通过。

(出处:www)

相关文章:
·Delphi状态栏控件应用一例
 → 特别推荐
 → 热点TOP10
关于我们 | 广告服务 | 发布资源 | 联系站长 Copyright 2001-2012 Delphi园地 All Rights Reserved