怎样使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; PCtlCmd = ^TCtlCmd;什么意思啊 ◆◆每年新增大概2万张图片,用Access数据库可行吗?◆◆ 可用分太多,散分! 数据库读取? 有关系统标题的一个问题? 有空进来坐坐。^_^ 高分求助:Delphi动态生成控件问题 IdHTTP下载繁体字网页面产生乱码 ?? 获取路由器Wan口IP地址,即外网IP地址 ?? TQuickRep打印问题 求一图形控件,有那位知道请告诉小弟,不胜感激!(在线等待!!!) 为什么midas的客户端只有在本机能打开
begin
if not(Key in ['0'..'9', #8]) then
Key := #0;end;