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

Материал из DRKB

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.


Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00516