怎样在状态条里显示进度？

Question

unit StatusBarExt;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls, ComCtrls;type
  TStatusBarExt = class(TStatusBar)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent);override;
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('rainbowsoft', [TStatusBarExt]);
end;{ TStatusBarExt }constructor TStatusBarExt.Create(AOwner: TComponent);
begin
  inherited;
  ControlStyle := ControlStyle + [csAcceptsControls];
end;end.

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgressBar1.Parent := StatusBar1;
  ProgressBar1.Height := StatusBar1.ClientHeight - 3;
  ProgressBar1.Top := 3;
  ProgressBar1.Left := 1;
end;

Answer 2

VAR
I:integer;
begin
  ProgressBar1.MAX:=adodataset.recordcount;
  ProgressBar1.Min:=0;
  i:=0;
  while not adodataset.eof do
  begin
  i:=i+1;
  ProgressBar1.position:=i;
  adodataset.next;
  end;
  ProgressBar1.position :=0;
end;

Answer 3

能让进度条显示在状态条的某一个panel里吗？

Answer 4

在panel上加ProgressBar可以，我试过了！！！

Answer 5

[Error] transacttxt.pas(82): Incompatible types: 'TWinControl' and 'TStatusPanel'
编译时怎么出这个错误啊？

Answer 6

首先,在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. 

Answer 7

对自己画,在panelbar自己创建一个progressbar,就可以了!

Answer 8

用 zswang(伴水)(需要充充电)的方法最简单，但是用Sample面板上的Gauge控件(带数字）替换ProgressBar就可以了。

Answer 9

var
  ProgBar: TProgressBar;
  PanelRect: TRect;procedure TfMain.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  if Panel.Index = 1 then PanelRect := Rect;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgBar := TProgressBar.Create(Form1);
  ProgBar.Parent := StatusBar1;
  ProgBar.SetBounds(PanelRect.Left, PanelRect.Top, PanelRect.Right - PanelRect.Left, PanelRect.Bottom - PanelRect.Top);
  ProgBar.Visible := true;
  StatusBar1.Repaint;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  if Assigned(ProgBar) then ProgBar.Free;
end;

Answer 10

procedure TfMain.StatusBar1DrawPanel(StatusBar: TStatusBar;
应当是
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;这段代码是用来在状态条中显示TProgressBar的，
它动态创建一个TProgressBar，并将它的Parent设置为StatusBar。
如果需要显示数字，应该可以将TProgressBar换成TGauge，但是我没有试过。