delphi里面控制Edit只能输入数字

如何在delphi里面控制Edit只能输入数字
━━━━━━━━━━━━━━━━━━━━━━━━━━

if not (key in [‘0’..’9′,#8]) then key := #0;
只能输入汉字,而不能输入数字或其他字符
━━━━━━━━━━━━━━━━━━━━━━━━━━
在Edit的OnKeyPress事件中
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Ord(Key)<127) or (Ord(Edit1.Text[1])>127) then
Key:=#0;
end;
要使一文本框中只可输入数字,而且当输入的数字错误时还可以通过Backspace键来修改.
━━━━━━━━━━━━━━━━━━━━━━━━━━
由于BackSpace的ASCII值是8,所以像以下这样即可
if (key<>#46) and ((key < #48) or (key > #57)) and (key <> #8) then
//如果输入不是数字或小数点(#46代表小数点)
begin
key:=#0; //取消输入的内容(#0代表空值)
showmessage(‘输入错误!请输入数字!’); //发出提示信息
end;

方法二:
if not (key in [‘0’..’9′,#13,#8 ,#46]) then
key := #0;
这样就可以了
只能输入数字,而不能输入其他字符
━━━━━━━━━━━━━

 » 本站地址:http://www.gomoth.com

标签: