用DELPHI在状态栏中显示进程条

页面导航:首页 > 软件编程 > Delphi > 用DELPHI在状态栏中显示进程条

用DELPHI在状态栏中显示进程条

来源: 作者: 时间:2016-02-05 11:47 【

经常上网的朋友可能早就已经发现,在一些浏览器的底部会在某些情况下动态显示一个进程条,比如在显示网页的时候,如果时间比较长,就会出现一个一格一格前进的,用以提醒用户
经常上网的朋友可能早就已经发现,在一些浏览器的底部会在某些情况下动态显示一个进程条,比如在显示网页的时候,如果时间比较长,就会出现一个一格一格前进的,用以提醒用户已经有多少数据被下传下来。它不仅仅出现在浏览器中,还经常被用于软件中,比如现在最热门的BT下载软件,都使用了这一技术。技术的改进源于工作的需要,现在编写网络软件那么流行,上面的小技巧应该是每个像我们这样的爱好者都需要的吧。


  打开DELPHI,选择WIN32面板上的状态栏(StatusBar),放到窗体(Form)上(图1),默认情况下状态栏组件将自动被摆放到窗体的底部(即Align属性被设为alBottom),同时该状态栏上初始为一个面板(Panel),为了使下面的表述清楚,我们来给这个状态栏加一个面板,操作步骤如下:

  1.双击状态栏组件打开面板编辑器(Panels editor)。

  2.右击面板编辑器然后选择“Add”,添加一个面板。

  3.选择第一个面板,在对象检查器(Object Inspector)中选中Text属性,写入“Progress:”。

  4.关闭面板编辑器。

  仅仅有一个状态栏当然不行,今天的主角应该是Progress(进程条)才对,现在我们把进程条摆放到窗体上来。(图2)


  看到上面的图之后,有的急性子读者可能要问,怎么那个进程在状态条的上面,而不是在它的内部,就是在面板上呢?这个不是我要的结果嘛!别急,别急,下面的才是今天的压轴好戏,把进程条放到状态栏的面板上,还能让它动起来。操作步骤如下:

  1.把ProgressBar的Parent属性设为StatusBar。

  2.把StatusBar的第二块面板的Style属性改成“psOwnerDraw”,这里是解决问题的关键,当Style被设为psOwnerDraw之后,面板上就可以被放制其它的组件,实现的方法是在OnDrawPanel事件中编写代码,默认情况是被设为psText,这样就只能显示文本,就像第一块面板那样。

  上面的步骤在实际编写代码时是这样实现的:

1.//首先在FormCreate事件中编写代码
procedure TForm1.FormCreate(Sender: TObject);
var
 ProgressBarStyle: integer;
begin
 //将状态栏的第二块面板设为的自绘(即psOwnerDraw)
 StatusBar1.Panels[1].Style := psOwnerDraw;

 //将进程条放入状态栏
 ProgressBar1.Parent := StatusBar1;

 //去除状态栏的边框,这样就与状态栏溶为一体了
 ProgressBarStyle := GetWindowLong(ProgressBar1.Handle,GWL_EXSTYLE);
 ProgressBarStyle := ProgressBarStyle - WS_EX_STATICEDGE;
 SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE, ProgressBarStyle);
end;

2.//编写状态栏的自绘代码
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;Panel: TStatusPanel;const Rect: TRect);
begin
 //注意这里的Panels[1]指的就是第2块面板,因为默认是从0开始的
 if Panel = StatusBar.Panels[1] then
  with ProgressBar1 do begin
   Top := Rect.Top;
   Left := Rect.Left;
   Width := Rect.Right - Rect.Left - 15;
   Height := Rect.Bottom - Rect.Top;
  end;
 end;

  关键问题解决之后,我们来一个小例子,这样就可以有一个全局的印象了,控件的摆放如(图3)所示,编写代码如下:


procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
ProgressBar1.Position := 0;
ProgressBar1.Max := 100;

for i := 0 to 100 do
begin
ProgressBar1.Position := i;
Sleep(25);
end;
end;

  运行一下这个小程序,点击一下按钮,看到了吧,进程条在状态栏中动起来了。
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <