base_statictext.pas

用Delhpi和mapx开发的警务管理系统

unit Base_StaticText;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TBase_StaticText = class(TStaticText)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor create(Aowner:TComponent);override;
  published
    { Published declarations }
    property AutoSize;
    property BorderStyle;
    property Alignment;
    property Height;
    property Width;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Base_Controls', [TBase_StaticText]);
end;

constructor TBase_StaticText.create(Aowner:TComponent);
begin
  inherited create(Aowner);
  AutoSize:=False;
  BorderStyle:=sbsSingle;
  Alignment:= taRightJustify;
  Height:= 18;
  width:=100;
end;
end.