100分(不够再加)，求一个能控制小数点、整数位数(并可以输入负数)的控件包

Question

期待你的帮助，谢谢

Answer 1

前两天通过别人帮助完成的代码，实现的功能和你要求的接近procedure TMainForm.suiEdit8KeyPress(Sender: TObject; var Key: Char);
var
  s:integer;
  bj:integer;
  str:string;
begin
  if not (Key in ['0'..'9','.',#8,#13]) then
    Key:=#0;
  if key<>#8 then
  begin
    bj:=pos('.',TEdit(Sender).Text);
    if bj>0 then
    begin
      s:=length(TEdit(Sender).Text);
      str:=Copy(TEdit(Sender).Text, bj,s-bj);
      if length(str)>=2 then
        key:=#0;
    end;
  end;
  if Key='.' then
  begin
    if (Pos('.',TEdit(Sender).Text)<>0)or(Length(TEdit(Sender).Text)=TEdit(Sender).SelLength)or(TEdit(Sender).SelStart=0) then
      Key:=#0;
  end;
end;

Answer 2

谢谢 zhj009(猪小弟) ，你的代码已经用过，可达不到我的要求。不知道有没有这样一个可视组件包。

Answer 3

你可以到www.51delphi.com上找一下。
哪儿控件很多。应该能找到。