dsStatusBar

{
Did you ever wanted to have a status bar that can accept controls just like TPanel.
}


{
TdsStatusBar1

Let's start with a new project, save it into desired folder and declare
some vital things for our status bar.
}

type
  TdsStatusBar = class(TStatusBar)
  public
    constructor Create(AOwner: TComponent); override;
  end;

{
That is true. We only need to override constructor.
}

constructor TdsStatusBar.Create(AOwner: TComponent);
begin
  inherited;
  ControlStyle := ControlStyle + [csAcceptsControls];
end;

{
Set ControlStyle and you're done.

If you want to test this status bar, you must add it to the components
pallete. I'm sure you know how to do this.
}