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

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

Создаем новый компонент от StatusBar и првим код как внизу. Потом инсталлируем и все.

Code:

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

Новые статьи