unitasbase.pas

来自「速达 界面 编辑器 按钮 非常漂亮的介面控制」· PAS 代码 · 共 37 行

{*******************************************************
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.