TStatusBar с другими контролами

Автор: man2002ua

Этот StatusBar позволит размещать на себе любые другие контролы. Создаем новый компонент от StatusBar и првим код как внизу. Потом инсталлируем и все.

unit StatusBarExt;

interface

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

type
  TStatusBarExt = class(TStatusBar)
  public
    constructor Create(AOwner: TComponent); override; // добавить конструктор
  end;

procedure Register;

implementation

uses Consts; // не забыть

constructor TStatusBarExt.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle + [csAcceptsControls]; // собственно все!
end;

procedure Register;
begin
  RegisterComponents('Samples', [TStatusBarExt]);
end;

end.