状态栏允许放入其他控件

状态栏允许放入其他控件
需要扩展一下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;