怎样使edit不能输入字符? 让edit只能输入数字。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not(Key in ['0'..'9', #8]) then Key := #0;end; 求助 DBGrid 合并单元格 调用xp外观 出现问题! 偶的程序运行2个小时就报错' System Error. Code: 14.存储空间不足,无法完成此操作。' 一个小问题,请过来人帮忙看一下,谢谢! 请问怎么在程序中备份SQL中的数据库???(急) form1.print问题 救~~~~~~~~~~~~~~ 一个关于时间的问题 如何在BITBTN上切换位图(GRAPHY) 奇怪 !为何总是忙一步 请问有什么书上讲了关于D5中嵌套汇编??? 求一图形控件,有那位知道请告诉小弟,不胜感激!(在线等待!!!) 为什么midas的客户端只有在本机能打开
begin
if not(Key in ['0'..'9', #8]) then
Key := #0;end;