各位高手：如何在状态条中加入按钮、进度条等多个控件！非常着急！选给50分，解决再加分！

Question

EASY,只需要扩展一下statusbar,加一个属性就行．分归我了．//----------------------------------------------------------------------//
//扩展StatusBar
//加入特性：允许在状态条上加入任意控件
  type
  TMStatusBar=Class(TStatusBar)
  private
  protected
  public
    constructor Create(AOwner: TComponent); override;
  published
  end;//TMStatusBar 事件扩展
   constructor TMStatusBar.Create(AOwner: TComponent);
   begin
        inherited Create(AOwner);
        ControlStyle:= ControlStyle + [csAcceptsControls];
   end;

Answer 1

复杂的方法，我就不说了，需要一大堆的代码
简单点儿：
在窗体上放置一个Panel，设置align:=alBottom和高度，然后再在里面放置Progressbar，button,和一个StatusBar，设置他们的Align和宽度即可。呵呵，使用非常简单。我就是这么做的，当然，现在有这样的StatusBar控件，不过，我一向不喜欢用第三方的控件：）

Answer 2

  先在form上加上Panel,把Panel的Align设为alBottom,再在Panel上加StatusBar,调好它们之间的大小，这时可以在StatusBar放你所耍的东西了。

Answer 3

Tip:  一定要用缺省的状态条吗？没这么执着吧？      可以使用Panel及其嵌套啊！——设置主Panel的Align属性为alBottom如何？      至于“加入按钮、进度条等多个控件”，就往里边加呗~！它们的大小、对齐属性都可以设定的。      还有哪个下三角，你实在要的话，就在Panel自画事件里画一下啦！      Any Question ?

Answer 4

1、将状态栏某个面板的Style属性设置为psOwnerDraw,并在状态栏的OnDrawPanel事件的处理过程中获取将该面板的尺寸。
2、一般动态地创建ProgressBar,并将其父级设置为状态栏组件。e.g.private
ProgressBar:TProgressBar;
ProgressBarRect:TRect;
...
procedure TForm1.StatusBar1DrawPanel(...)
begin
     ProgressBarRect:=Rect; 
end;procedure TForm1.Button1Click(...)
var
   i,StepCount:integer;
begin
     ProgressBar:=TProgressBar.Create(Form1);
     StepCount:=100;
     with ProgressBar do
     begin
          Top:=ProgressBarRect.Top;
          Left:=ProgressBarRect.Left;
          Width:=ProgressBarRect.Right-ProgressBarRect.Left;
          Height:=ProgressBarRect.Bottom-ProgressBarRect.Top;
          Visible:=True;
          try
             Parent:=StatusBar1;
             Min:=0;
             Max:=StepCount;
             ...
          finally
             Free;
          end;
     end;
end;

Answer 5

TO:coldljy(凤舞N天)　，怎么在窗体一显示出来，就建立控件，并且好像每个状态条只能有一个设为psOwnerDraw，好像设两个也不管用呀帮我解决一下好吗？QQ：25857100AM：8：30~PM：18：30！多谢！