UC知道用Delphi 7编程,要使一文本框中只可输入数字,而且当输入的数字错误时还可以通过Backspace键来修改.
来源：百度知道 编辑：UC知道 时间：2024/05/05 02:43:53
先谢谢各位高手的指教了.
if (key<>#46) and (key < #48) or (key > #57) then
//如果输入不是数字或小数点（#46代表小数点）
begin
key:=#0; //取消输入的内容（#0代表空值）
showmessage('输入错误!请输入数字!'); //发出提示信息
end;
上面的代码可以实现键盘只可以在文本框中输入数字和小数点.但如果输入的数字错误时就不可以同过键盘的Backspace键来修改数字了..
希望你们能指教,该什么改.能使用Backspace键来修改数字..
if (key<>#46) and (key < #48) or (key > #57) then
//如果输入不是数字或小数点（#46代表小数点）
begin
key:=#0; //取消输入的内容（#0代表空值）
showmessage('输入错误!请输入数字!'); //发出提示信息
end;
上面的代码可以实现键盘只可以在文本框中输入数字和小数点.但如果输入的数字错误时就不可以同过键盘的Backspace键来修改数字了..
希望你们能指教,该什么改.能使用Backspace键来修改数字..
if (key<>#46) and (key<#48) or (key>#57) or (key<>#13) then//这里把#13换成退格的ascii
begin
key:=#0;
showmessage('....');
end;
这样就行了：
if not (key in ['0'..'9',#13,#8 ，#46]) then
key := #0;