盒子论坛 v2.1

我是一名新手，想各位高手帮帮忙。

请问：如何才能令编辑框（Edit）只输入数字和小数点，不输入字母等字符。
可编程实现就最好，但只能用Edit,不用MaskEdit。

急用，请各位高手帮帮忙，谢谢！
----------------------------------------------
-

作者：

zxdcj (月下舞者)	★☆☆☆☆	-
	盒子活跃会员

2004/4/4 14:43:12

1楼：

在edit的keypress中判断键值
----------------------------------------------
-

作者：

xiaozhi4u (xiaozhi)	★☆☆☆☆	-
	普通会员

2004/4/4 14:51:45

2楼：

代码如下：
procedure  Edit1OnKeyPress(……);
begin
   if  Not  Key In[0..9]  then
     Key:=#0;
end;
----------------------------------------------
-

作者：

zxdcj (月下舞者)	★☆☆☆☆	-
	盒子活跃会员

2004/4/4 15:28:09

3楼：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  s:string;
begin
  s:=edit1.Text;
  if key in ['0'..'9',#8] then edit1.ReadOnly:=false
  else
    edit1.ReadOnly:=true;
  if (key=#46) and (pos('.',s)<=0) then edit1.ReadOnly:=false;
end;
----------------------------------------------
-

作者：

oupj (oupj)	★☆☆☆☆	-
	盒子活跃会员

2004/4/4 20:03:49

4楼：

procedure TForm.Edit1.KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [0..9, #8, #46]) then
Key:= #0;
end;
----------------------------------------------
-

信息

登陆以后才能回复