RSS订阅 | 匿名投稿
您的位置:网站首页 > 控件 > 正文

delphi 状态栏上放多个进程条

作者:admin 来源:未知 日期:2010/5/26 11:28:43 人气: 标签:



http://www.freedelphitips.com/the-status-bar-on-the-release-of-multiple-processes.html

Delphi 中TStatusbar上通常不允许放其它组件。但是经常有需求要在右下角的状态栏上放置进程条以达到更好的显示效果,下面介绍如何将多个进程条组件添加到一个状态栏 TStatusbar上,以及如何适应状态栏的大小来调整进程条的大小。

//状态栏可以自定义为多个panel,我们首先要取得放进程条在那个panel的尺寸大小
//以下函数需要引用 单元 commctrl
//第二个参数中 0是取得状态栏第一个panel 依次 1为取得第二个panel
Statusbar1.Perform(SB_GETRECT, 0, Integer(@R));
Statusbar1.Perform(SB_GETRECT, 2, Integer(@R2));
//我们设定在状态栏放两个进程条,分别放在第一个与第三个panel中,当然状态栏你要先设好为三个

//设置进程控件的parent为状态栏,即可将进程条放在状态栏上
progressbar1.Parent := Statusbar1;
progressbar2.Parent := Statusbar1;

//设置第一个进程条在状态栏第一个panel的位置
progressbar1.Top := r.Top; //set size of
progressbar1.Left := r.Left; //Progressbar to
progressbar1.Width := r.Right – r.Left; //fit with panel
progressbar1.Height := r.Bottom – r.Top;

//设置第二个进程条在状态栏第三个个panel的位置
progressbar2.Top := r2.Top; //set size of
progressbar2.Left := r2.Left; //Progressbar to
progressbar2.Width := r2.Right – r2.Left; //fit with panel
progressbar2.Height := r2.Bottom – r2.Top;
//以上我们设定进程条充满各自的panel,当然你可以设定进程条的top,left等属性来调整显示位置

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,commctrl, ComCtrls, StdCtrls; type  TForm1 = class(TForm)    StatusBar1: TStatusBar;    ProgressBar1: TProgressBar;    ProgressBar2: TProgressBar;    Button1: TButton;    procedure FormShow(Sender: TObject);    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  endvar  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject);var  r,r2: TRect;begin  //状态栏可以自定义为多个panel,我们首先要取得放进程条在那个panel的尺寸大小  //以下函数需要引用 单元 commctrl  //第二个参数中 0是取得状态栏第一个panel 依次 1为取得第二个panel  Statusbar1.Perform(SB_GETRECT, 0, Integer(@R));  Statusbar1.Perform(SB_GETRECT, 2, Integer(@R2));  //我们设定在状态栏放两个进程条,分别放在第一个与第三个panel中,当然状态栏你要先设好为三个   //设置进程控件的parent为状态栏,即可将进程条放在状态栏上  progressbar1.Parent := Statusbar1;  progressbar2.Parent := Statusbar1;   //设置第一个进程条在状态栏第一个panel的位置  progressbar1.Top    := r.Top;      //set size of  progressbar1.Left   := r.Left;      //Progressbar to  progressbar1.Width  := r.Right - r.Left; //fit with panel  progressbar1.Height := r.Bottom - r.Top//设置第二个进程条在状态栏第三个个panel的位置  progressbar2.Top    := r2.Top;      //set size of  progressbar2.Left   := r2.Left;      //Progressbar to  progressbar2.Width  := r2.Right - r2.Left; //fit with panel  progressbar2.Height := r2.Bottom - r2.Top;  //以上我们设定进程条充满各自的panel,当然你可以设定进程条的top,left等属性来调整显示位置  end;procedure TForm1.Button1Click(Sender: TObject);var  i:integer;begin for i:=0 to 100 do begin    Sleep(100);    ProgressBar1.Position:=i;    ProgressBar2.Position:=i;    end;endend.

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: