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

Этот 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 http://forum.vingrad.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...