delphi中如何让文本框只输入数字、减号、小数点、汉字和退格键

来源：百度知道 编辑：UC知道 时间：2024/09/21 02:47:26
如题
谢谢一楼的回答，但是还有一个问题，就是用那个代码仍可以输入标点符号之类的特殊符号，能否限制它们的输入啊？

在文本框的KEYPRESS事件中编写代码
if ord(key) >= $A1 then Exit;//允许输入汉字
if not(key in ['0'..'9','-','.',#8]) then//文本框只输入数
//字、减号、小数点和退格键
begin
key:=#0;
Exit;
end ;
Delphi7下测试通过。

在文本框的KEYPRESS事件中编写代码
if Key = #8 then dosomething;

这是退格，其他的你可以自己对照，找到相应的ASCII码就OK了