求一金额输入控件？

Question

求一金额输入控件？

Answer 1

我刚才自己随便弄了一个控件,可以满足你的要求的,你安装之后就可以用了.
unit numEdit;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TnumEdit = class(TEdit)
  private
    { Private declarations }
    procedure exit(Sender:TObject);
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    Constructor create(AOwner: TComponent);override;
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TnumEdit]);
end;{ TnumEdit }constructor TnumEdit.create(AOwner: TComponent);
begin
//继承祖先的操作
inherited;
//将其text属性设置为0.00
text:='0.00';
onexit:=exit;
end;procedure TnumEdit.exit(Sender: TObject);
begin
try
//尝试将字符串转换为小数.
strtofloat(text);
except
application.MessageBox(Pchar('错误，你所输入的：'+text+'不是有效的数值。'),'输入错误',mb_ok+mb_iconinformation);
(Sender as TEdit).setfocus;
end;
end;end.