unitasbase.pas

仿速达界面控件

{*******************************************************
By wr960204 王锐

2004/8/8
*******************************************************}
unit UnitASBase;

interface
uses
  Controls;

Type
  TASBase = Class(TCustomControl)
  private
    FAbout:String;
    function GetCurrentVer: Double;
  public
    property CurrentVer:Double read GetCurrentVer;
  published
    property About:String read FAbout write FAbout;
  end;

implementation

{ TASBase }
Const
  CurrentVer = 0.5;


function TASBase.GetCurrentVer: Double;
begin
  Result := CurrentVer;
end;

end.