？？？Edit控件只能输入指定位数如 0.00 格式的，请问用什么控件？？？

[lantianhf]

Edit控件只能输入指定位数如 0.00 格式的，请问用什么控件，我可以设定小数点的位数，但格式必须设置的格式，按退格时还是显示 0.00 不清空，如光标放到角的位置自动替换0，如输入5角，自动变成0.50，后面的分位不变，用什么控件，谢谢帮帮指点。

[kye_jufei]

在KeyPress事件中寫代碼。。。

[kye_jufei]

試試...

procedure TRes_Hr_Report_F.Button1Click(Sender: TObject);
var
  DotPos,Len:integer;
begin
  DotPos:=pos('.',(Sender as TEdit).Text);
  Len:=length((Sender   as   TEdit).Text);
  if key in ['0'..'9',#8,'.','+','-'] then
  begin
    if (key  in  ['+','-']) then
    begin
      //只能在游標處於第一的位置，才能輸入'+'或者'-'
      if ((Sender as TEdit).SelStart>0) then
      begin
        key:=#0;
        exit;
      end;
      //'+'，'-'互斥
      if (pos('+',(Sender as TEdit).Text)>0) or (pos('-',(Sender as TEdit).Text)>0) then
      begin
        key:=#0;
        exit;
      end;
    end;
    if key in ['.'] then
    begin
      //只能輸入一個'.'
      if (DotPos>0) then
      begin
        key:=#0;
        exit;
      end;
      //只能在'+','-'後面輸入'.'
      if (pos('+',(Sender as TEdit).Text)>0) or (pos('-',(Sender as TEdit).Text)>0) then
        if ((Sender as TEdit).SelStart<=0) then
        begin
          key:=#0;
          exit;
        end;
        //小數點必須在最後兩位
        if (DotPos<=0) and ((Sender as TEdit).SelStart<Len-2) then
        begin
          key:=#0;
          exit;
        end;
    end;
    if key in ['0'..'9'] then
    //小數點後面最多兩位
    if (DotPos>0) and (DotPos<=Len-2) and ((Sender as TEdit).SelStart>=DotPos) then
      key:=#0 ;
  end
  else
    key:=#0;
end;

[varick_zhong]

可以用cxcurrencyedit控件可以

[lantianhf]

我说的功能好像 cxcurrencyedit 实现不了吧

[idecl]

maskEdit