你可以在edit1的KeyPress事件中写:
if not (Key in ['0'..'9']) then
Key := #0; //或者也可以弹对话框报错
if not (Key in ['0'..'9']) then
Key := #0; //或者也可以弹对话框报错
解决方案 »
- 求 Delphi 8.0以及9.0的dbExpress连接SQLServer的DLL文件
- 去年写了一个专门打印DBGRID和STRINGGRID的数据模块,还没做成控件,相信能解决大家的问题,有兴趣的可以看看功能简介
- 昏!SQL SERVER中新建一个表,两个字段,一个char,一个bit,不能删除操作???
- win98下使用copyfile的问题
- 如何提高编程能力?
- 又一个初学者问题,再来捡分
- 有没有透明的TRACKBAR控件,也就是第三方控件。
- 电脑的专有名称太多了,英文简写更让人眼花缭乱,怎样可以收集这些简写,并知道他们的确切含义?谢谢!
- 用ado 如何連接 excel files
- 请指点cxgird的LookupComboBox怎么用
- 参加了北京BORLAND活动的各位请进!!!!!!
- 将数据库内容导入Excel并保存(附源代码):procedure WriteDatasetToExcel(AQueryName: TQuery; AStrVar: String);
2、将Tools|Debugger Options...中的Integrated debugging的勾去掉,也不会报错。
同意楼上的说法,要exit干什么
你可以是在编译器运行那是DELPHI系统报错,但如果是单独的EXE就没关系的啦。