如何在状态栏中显示进度条?(200分)

  • 主题发起人 主题发起人 encounter
  • 开始时间 开始时间
E

encounter

Unregistered / Unconfirmed
GUEST, unregistred user!
TStatusbar不允许其它控件停放,如何才能在状态栏中显示进度条呢?
 
  首先,在FROM中放置一个状态条控件Status。调节Status.Panels,在其中插入3个状态条嵌板。把第二个嵌板的参数Style设置成psOwnerDraw。这一点很重要,如果没有这样做,将永远无法显示文字以外的东西。然后在状态条的OnDrawPanel事件中插入一行StatusDrawRect:=rect;以记录参数Style设置成psOwnerDraw的嵌板的坐标。
  第二步,在FROM的Private中申明一个TProgressBar类型的变量Progress。然后在一个菜单的消息响应过程中调用Create方法把它建立起来,再设定状态条为该进程条的父窗口,进而设定进程条的一些必要参数。例如:最大值、最小值、原点坐标、高度和宽度等。

  最后编译一下该程序,你就会发现在状态条中被插入了一个运动着的进程条。
  类似地,你还可以在状态条中插入其他可视控件,如:按键、位图和动画控件等等。
以下是范例程序:
type
TForm1 = class(TForm)//定义一个窗口类
Status: TStatusBar;
MainMenu1: TMainMenu;
file1: TMenuItem;
insertprocressbar1: TMenuItem;
N1: TMenuItem;
exit1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure StatusDrawPanel(StatusBar: TStatusBar; Panel:
TStatusPanel;const Rect: TRect);
procedure FormDestroy(Sender: TObject);
procedure exit1Click(Sender: TObject);

procedure insertprocressbar1Click(Sender: TObject);
private
colorindex : integer; BookOpen:Boolean;
ssbmp:Tbitmap; progress:TProgressbar;
StatusDrawRect:TRect; //记录要插入状态条特技的坐标范围
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
end;

procedure TForm1.StatusDrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
StatusDrawRect:=rect; //记录要实现状态条特技的坐标范围
end;

procedure TForm1.exit1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.insertprocressbar1Click(Sender: TObject);
var i,count:integer;
staPanleWidth:integer;
begin
progress:=TProgressbar.create(form1);
count:=3000; //进程条的最大值
staPanleWidth:=status.Panels.Items[2].width;
//由于进程条的很宽,所以需要改变状态条嵌板的宽度,这里先保存它的宽度。
status.Panels.Items[2].width:=150; // 改变宽度
status.repaint;
with progress do
begin
top:=StatusDrawRect.top;
left:=StatusDrawRect.left;
width:=StatusDrawRect.right-StatusDrawRect.left;
height:=StatusDrawRect.bottom-StatusDrawRect.top;

//设定进程条的宽度和高度
visible:=true;
try
Parent := status; //该进程条的拥有者为状态条status
Min := 0; Max := Count; //进程条的最大和最小值
Step := 1; //进程条的步长
for i := 1 to Count do
Stepit; // 累加进程条
ShowMessage('现在,进程条将要从内存中被释放');
finally
Free; //释放进程条
end; //try
end; //with
status.Panels.Items[2].width:=staPanleWidth; //恢复状态条嵌板的宽度
end; //begin

end.
 
1.设状态条某一panel的Style为psOwnerDraw.

2.在状态条的OnDrawPanel时间中写入如下代码:

ProgressBar1.Parent:=StatusBar1;

with rect do
ProgressBar1.setbounds(Left,Top,right-left+1,bottom-top+1);
end;

progressbar1.visiable:=true;
注意:
如果你想将两个以上的进度条放在状态条上,则OnDrawPanel事件将会调用
两次,这样在处理时,应该根据参数panel来判断重画的是哪一个panel,如
if panel=statusbar1.panels[1] then
begin
//...
end;
if panel=statusbar1.panels[2] then
begin
//...
end;
 
有那么复杂吗?!
新建一工程,在Form1上放置StatusBar1、ProgressBar1。然后将下面的代码拷贝过去,编译,执行。
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.Panels.Add; //在StatusBar上添加一个Panel
StatusBar1.Panels.Add;
StatusBar1.Panels.Items[0].Width := 100;

ProgressBar1.Parent := StatusBar1;
ProgressBar1.Left := StatusBar1.ClientRect.left;
ProgressBar1.Top := StatusBar1.ClientRect.top + 2;
ProgressBar1.Height := StatusBar1.ClientRect.bottom - StatusBar1.ClientRect.top - 2;
ProgressBar1.Width := StatusBar1.Panels.Items[0].Width;
ProgressBar1.Smooth := true;
ProgressBar1.Position := 60;
end;
 
1st3000中有一个状态条控件。功能强大,可以实现你的要求,而且会让你有意外的惊喜!
 
谢谢各位!
 
后退
顶部