让Delphi的标准TStatusBar状态栏控件具有容器功能

Delphi中的标准TStatusBar没有再它上面添加控件的功能，继承它，创建一个新的控件，拥有容器功能。
新的StatusBar可以在它上面添加如进度条等其他控件，拥有容器功能。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
unit ControlStatusBar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;

type
  TControlStatusBar = class(TStatusBar)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor create(AOwner: TComponent); override;   
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('whj', [TControlStatusBar]);
end;

{ TControlStatusBar }

constructor TControlStatusBar.create(AOwner: TComponent);
begin
  inherited;
  controlstyle:=controlstyle+[csAcceptsControls];  //让它具有容器功能
end;

end.