numEdit

说明：  利用tedit扩展的数字编辑框，允许设置正负、小数点等
(The digital edit box using tedit extended, allowing the set of positive and negative, the decimal point)

unit numEdit;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TnumEdit = class(TEdit)
  private
    { Private declarations }

    fallowe:boolean;
    fallownegative:boolean;//允许负数
    fallowpoint:boolean;
    fallowAll:boolean;
  protected
    { Protected declarations }
    procedure KeyPress(var Key: Char);override;
  public
    { Public declarations }
    function asint:integer;
    function asfloat:double;
  published
    { Published declarations }
    property allowe:boolean read fallowe write fallowe default false;
    property allownegative:boolean read fallownegative write fallownegative default false;
    property allowpoint:boolean read fallowpoint write fallowpoint default false;

    property allowAll:boolean read fallowall write fallowall default false;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('System', [TnumEdit]);
end;

{ TnumEdit }

function TnumEdit.asfloat: double;
var
tmpf:double;
begin
  try
    tmpf:=strtofloat(text);
  except
    tmpf:=-;
  end;
  result:=tmpf;

end;

function TnumEdit.asint: integer;
var
tmpn:integer;
begin
  try
    tmpn:=strtoint(text);
  except
    tmpn:=-;
  end;
  result:=tmpn;
end;

procedure TnumEdit.KeyPress(var Key: Char);
begin
  inherited;
  if fallowall then exit;
  if not (((ord(key)>=) and  //数字
          (ord(key)<=)) or  //
          (ord(key)=) or   //删除
          ((ord(key)=) and fallowpoint) or  //.
          ((ord(key)=) and fallownegative) or  //-
          (((ord(key)=) or (ord(key)=)) and fallowe))//e
          then
    key:=#;
end;

end.