alstatusbar.pas

来自「使用TCppWebBrowser控件实现的浏览器」· PAS 代码 · 共 48 行

{
  ALStatusBar v1.0

  (C)1999 Andrew Leigh
  http://www.alphalink.com.au/~leigh/components

  Description:
    TALStatusBar is a status bar control that will allow other controls to be
    inserted into it.

  History:
    v1.0 28-Nov-1999 Initial release.
}

unit ALStatusBar;

interface

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

type
  TALStatusBar = class(TStatusBar)
  public
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('ALComps', [TALStatusBar]);
end;

{ TALStatusBar }

constructor TALStatusBar.Create(AOwner: TComponent);
begin
  inherited;

  ControlStyle := ControlStyle + [csAcceptsControls];
end;

end.