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

Этот 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.

Автор: man2002ua

Взято с Vingrad.ru https://forum.vingrad.ru