如何把进度条放在TStatusBar上

Question

指定Parent属性，并设定好大小即可。

Answer 1

由于状态条不是容器，所以进度条无法放在上面，你可以用Pannel和状态条组合使用。

Answer 2

先把状态栏的第一个Panel的style属性设为psOwnerDraw,在窗体上随便放一个进度条，
然后在状态栏的OnDrawPanel事件中按以下书写：
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
 ProgressBar1.Parent := StatusBar1;
 ProgressBar1.Left   := Rect.Left;
 ProgressBar1.Top    := Rect.Top;
 ProgressBar1.Width  := Panel.Width;
 ProgressBar1.Height := Rect.Bottom - Rect.Top;
 ProgressBar1.Visible:= True;
end;

Answer 3

应该是可以的，因为状态条控件是从TwinControl类继承的。我想可以这样：
在窗体上放一进度条，然后动态地设定其parent为statusbar1。

Answer 4

很简单，你放一个TPanel，将它的Align属性设为alBottom，然后在上面放入TStatusBar，最后把进度条TProgressBar放在TStatusBar上面，调整一下大小和方向便可。

Answer 5

在程序中设置存放进度值的变量x，比如百分之多少。
将相应的statusbar的panel的style属性设为psOwnerDraw，在StatusBar1DrawPanel事件中写如下代码：
   首先判断一下当前要画的panel是否是您想表示进度的panel
   如是，则
   statusbar1.canvas.brush.color=clblue;
   statusbar1.canvas.fillrect((rect(Rect.left,Rect.top,Rect.right*x,Rect.bottom));
   如果还想写文字，可以用canvas的textout或者textrect方法画字。
用这种方法只能表示进度，但不能通过用鼠标拖拉的方法改变进度。即只能实现进度条的部分功能。

Answer 6

去WWW.DELPHIUSER.COM去下载一个控件包：RAIZE里面的控件能完全符合您的要求。
（也可由我MAIL TO YOU）

Answer 7

稍微改一下statusbar的源码做一个控件。不但可以放进度条。边图片都可以放。想要请通知我！

Answer 8

完全同意Bald_eagle的方法,这是最简单的方法,哪里还要用控件或其它。

Answer 9

hhzh426的方法比较专业!
peacock的方法比较简单,但是进度条增加是好像有些闪烁.