如何在状态栏放入其他控件

状态栏允许放入其他控件

需要扩展一下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;