登陆

最简单的限制edit数字输入

delphi代码
  1. procedure TForm1.Edt_NumKeyPress(Sender: TObject; var Key: Char);   
  2. begin   
  3. If not (key in [#48..#57]) then   
  4. begin    
  5. key:= #0;   
  6. ShowMessage('只能输入数字');   
  7. end   
  8. end;  

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

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

Tags: delphi, 限制, edit, 数字

« 上一篇 | 下一篇 »

相关文章