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 日
© 允许规范转载
赞赏作者
一分也是爱
相关文章
- 👉 【提问GPT】TADOConnection连接失败的问题
- 👉 CnPack 密码算法库 For Delphi
- 👉 [提问GPT]我想用delphi作为开发语言，做一个杀毒软件，有可能吗？
- 👉 Delphi 7: 面向对象设计和原型设计的优势分析
- 👉 delphi xe8 自带DEMO集合
- 👉 Delphi XE FireDAC 数据库编程学习1
- 👉 Delphi7在windows11下提示unable to rename.....错误
- 👉 Cef4动态设置代理IP方法
- 👉 将Delphi XE8 改为 Delphi7一样的浮动窗口设计
- 👉 Delphi7调用C#的webservice，在windows2008下不能运行？？
