求写个继承TDBEdit格式化小数

Question

那位老大帮我实现这些功能啊
继承TDBEdit写控件实现以下功能
比如设定了4位小数1、连接数据后多余4位小数的就四舍五入,不够4位的就在后边添零 例如数据库是2.1的话 读出来就是2.1000 如果是2.12345的话读出来就是2.12352、得到焦点的时候，如果在得到焦点的时候是2.1000就变为2.13、失去焦点的时候，失去前是2.1的话就变为2.1000，如果是2.12345的话就变为2.1235没什么分，大虾们帮下忙啊。。

Answer 1

通常+一般+普遍 会有人和我一样跟你说: 用cxDBCurrencyEdit吧

Answer 2

呵呵,cxDBCurrencyEdit我有安装,可太大了,怕影响速度,所以不想用..

Answer 3

unit DBNumEdit;interfaceuses
  SysUtils, Classes, Controls, StdCtrls, Mask, DBCtrls;
type
  TNumType = (None, Amount, Numerical);type
  TDBNumEdit = class(TDBEdit)
  private
    FNumType: TNumType;
    iDecPlaces: integer;
    bCanNegative, bHaseChanged: boolean;
    sTemText: string;
    procedure KeyPress(var Key: Char); override;
    procedure CMExit(var AMsg: TCMExit); message CM_EXIT;
    procedure CMEnter(var AMsg: TCMEnter); message CM_ENTER;
    procedure Change; override;
  protected  public
    HaseChanged: boolean;
    constructor Create(AOwner: TComponent); override;
  published
    property NumType: TNumType read FNumType write FNumType default None;
    property DecPlaces: integer read iDecPlaces write iDecPlaces default 0;
    property CanNegative: boolean read bCanNegative write bCanNegative default False;
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Data Controls', [TDBNumEdit]);
end;{ TDBNumEdit }procedure TDBNumEdit.Change;
begin
  inherited Changed;  if not Focused then
    if (Trim(Text) <> '') and (Trim(Text) <> '-') then
      Text := formatfloat('0' + copy('.000000000', 1, DecPlaces + 1), strtofloat(Text));
end;procedure TDBNumEdit.CMEnter(var AMsg: TCMEnter);
begin
  if (Trim(Text) <> '') and (Trim(Text) <> '-') then
    Text := formatfloat('0.#########', strtofloat(Text));
  sTemText := Trim(Text);
end;procedure TDBNumEdit.CMExit(var AMsg: TCMExit);
begin
  if sTemText <> Trim(Text) then
    HaseChanged := True
  else
    HaseChanged := False;
  if (Trim(Text) <> '') and (Trim(Text) <> '-') then
    Text := formatfloat('0' + copy('.000000000', 1, DecPlaces + 1), strtofloat(Text));
end;constructor TDBNumEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);  Text := '0.00';
end;procedure TDBNumEdit.KeyPress(var Key: Char);
begin
  inherited KeyPress(Key);  if not (Key in['0'..'9', '.', '-', #8, #13]) then
  begin
    Key := #0;
  end
  else if Key = '.' then
  begin
    if Pos('.', Text) <> 0 then
      Key := #0;
  end
  else if (Key = '-') then
  begin
    if not CanNegative then
      Key := #0
    else if text <> '' then
      begin
        if (Pos('-',Text) > 0) and (SelLength=0) then
          Key := #0;
        if SelStart > 0 then Key:=#0;
      end;
  end;
end;end.自己写了一个,但有两个问题:
1、控件获得焦点后有时候内容不不能自动靠左。
２、控件放到窗体上的时候有数据转换问题。
望哪位高手解决下，谢谢