procedure TFrm_KhbNewView.edt_cl_mbqssKeyPress(Sender: TObject; var Key: Char);begin if not(key in['0'..'9',#8])then //限制只输入数字 begin key:=#0; MessageBeep(1); //Beep; 调用系统声音也行! end;end;['a'..'z' ,'A'..'Z', #8] 限制只输入字母 最后修改:2013 年 07 月 12 日 © 允许规范转载 打赏 赞赏作者 支付宝微信 赞 建站21年,至今未收到一分打赏,但我还在坚持,等一个有缘人 相关文章 👉 传奇的开始Delphi(下)含所有版本.iso 👉 传奇的开始Delphi(中) 👉 传奇的开始Delphi(上) 👉 CnRSA算法实现说明与帮助 👉 【提问GPT】TADOConnection连接失败的问题 👉 CnPack 密码算法库 For Delphi 👉 [提问GPT]我想用delphi作为开发语言,做一个杀毒软件,有可能吗? 👉 Delphi 7: 面向对象设计和原型设计的优势分析 👉 delphi xe8 自带DEMO集合 👉 Delphi XE FireDAC 数据库编程学习1