最简单的限制edit输入

procedure TForm1.Edt_NumKeyPress(Sender: TObject; var Key: Char);   
begin   
If not (key in [#48..#57]) then   
begin    
key:= #0;   
ShowMessage('只能输入数字');   
end   
end;  

 

刚遇到这个问题就发上来了 这个".."真好用啊

记住在你的edit编辑框里面在KeyPress里面加入代码哦！

转载于:https://www.cnblogs.com/rogee/archive/2010/09/20/1832022.html