在KeyPress中写
if Key in ['A'..'Z', 'a'..'z'] then
Key := #0;
if Key in ['A'..'Z', 'a'..'z'] then
Key := #0;
解决方案 »
- 跨进程 调用DBGRID事件,有人做过吗?
- 如何设置TreeView的Item(node)高,类似ListBox中的ItemHeight
- 我用DBGrid显示我查询的记录。如何添加一栏CheckBox让用户可以多选,以便对选择的记录进行处理呢。。。。
- 请教关于 Formula One 的简单问题
- SQL 中主键约束的问题!在线等!分不够加!
- 大富翁7真好玩,好开心!使用delphi写的吗?
- 谁知道那里有toad下载??
- TPageControl动态加页?
- 天哪!这么难的pascal竟然没人能解答,最后28份全部转让!
- 哪儿有delphi5 企业版下载?
- 看过李维的新书(...SOAP)后, 大家有什么感想.
- 三个要命的问题 高手请帮忙 在线等待 急!
if not (Key in ['.', '0'..'9']) then
Key := #0;