base_panel.pas

来自「用Delhpi和mapx开发的警务管理系统」· PAS 代码 · 共 47 行

unit Base_Panel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls,QGraphics;

type
  TBase_Panel = class(TPanel)
  private
    { Private declarations }
    //m_Caption:string;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor create(Aowner:TComponent);override;
    destructor  destroy;override;
  published
    { Published declarations }
    property BevelInner;//:TEdgeModal read m_EdgeModal write m_EdgeModal;
    //property Caption:string read m_Caption write m_Caption;
  end;

procedure Register;

implementation

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

constructor TBase_Panel.Create(AOwner:TComponent);
begin
  inherited create(Aowner);
  BevelInner:=bvLowered;
  //Caption:='';
end;

destructor TBase_Panel.destroy;
begin
  inherited destroy;
end;

end.