英特尔®游戏设计大赛100美元现金周周送	专题改版：Java Web 专题

如何控制在Edit控件中只能输入数字且小数点后最多两位（急！在线等）

楼主jfei793（fisher）2003-09-01 16:53:09 在 Delphi / VCL组件开发及应用提问

如何控制在Edit控件中只能输入数字
且小数点后最多精确到两位，多于两位则无法输入。问题点数：100、回复次数：11Top

1 楼hansome（连环）回复于 2003-09-01 17:01:56 得分 1

用MaskEdit
并且设置它的EditMask为9999.99;1;_Top

2 楼fhuibo（永远深爱一个叫“莎”的好女孩儿）回复于 2003-09-01 17:09:48 得分 1

用MaskEdit1比较容易Top

3 楼zerolx（）回复于 2003-09-01 17:22:26 得分 1

用pos判断小数点的位置，然后限制小数点后的长度就行了。Top

4 楼zerolx（）回复于 2003-09-01 17:25:33 得分 1

输入只能数字的话，在keypress判断Top

5 楼h2yang（小青）回复于 2003-09-01 17:36:15 得分 1

如不怕麻烦的话,可以自己设计代码.Top

6 楼kaolaxiong（考拉熊）回复于 2003-09-01 17:37:08 得分 1

MaskEdit呀，
要么就在onChange中判断Top

7 楼Manwill71（天皇地虎江山一片）回复于 2003-09-01 17:39:36 得分 91

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//限制输入字符
if not (key in ['1'..'9','.',#8]) then
begin
key := #0 ;
exit ;
end ;
//限制'.'个数
if (key = '.') and (pos('.',TEdit(Sender).Text) > 0 ) then
begin
Key := #0 ;
exit ;
end ;
//限制个数
if (pos('.',TEdit(Sender).Text) > 0 ) then
begin
if (TEdit(Sender).SelStart >= pos('.',TEdit(Sender).Text)) and
( Length(Copy(Tedit(Sender).Text,pos('.',TEdit(Sender).Text)+1, Length(TEdit(Sender).Text )-
pos('.',TEdit(Sender).Text)))>1 ) and (key <>#8)then
begin
Key := #0 ;
exit ;
end ;
end ;

end;Top

8 楼tiexinliu（铁心刘）回复于 2003-09-01 17:41:34 得分 1

用maskedit吧，省时省力Top

9 楼songqianyong（其实我也想进步！）回复于 2003-09-01 17:44:01 得分 1

前面的老兄们说的办法都可以解决！Top

10 楼zhudongpo（phil）回复于 2003-09-01 17:45:34 得分 1

用maskedit吧Top

11 楼jfei793（fisher）回复于 2003-09-01 20:04:49 得分 0

叩谢Manwill71(天皇地虎江山一片)Top