如果限制Edit文本框字符的输入

  一般是在下面控件的事件里添加

procedure Edit1KeyPress(Sender: TObject; var Key: Char); 

 

具体代码

例如，只允许输入数字

begin

if Key in ['0'..'9',#8,#13 then

begin

end else

begin

key:=#0;

end;

end;

 

#8是回退键

#13回车键

这两个不能屏蔽，不然无法删除字符或者进行回车

本文地址：http://www.xszlo.com/article/2012-12-08/7614.html，转发请保留这个地址，谢谢