edit的keypress事件
if not (in [,#13,'1'..'9']) then
key := #0;
if not (in [,#13,'1'..'9']) then
key := #0;
解决方案 »
- 发个 才气美女 嫦.娥公主生
- 关于treeview中文字,背景的颜色
- 如何在richEdit中将光标定位在某行的某列下?急!
- 有什么函数将123.4567保留成2位小数,要求写出详细的代码谢谢!
- Devexpress dxRibbon怎么隐藏form的title bar
- 在深圳MS SQL SERVER开发管理员多少钱一个月?
- ▂▃▄▅▆▇ 如何从internet校对时间? ▇▆▅▄▃▂
- 哪位高手告知关于如何使用chart/dbchart/vtchart/f1book等等控件的使用资料
- 如何将一段MPG或WAV文件存放到SQL SERVER中???
- ADO高手请进,一直没解决的问题等着你。
- 一个关于delphi的初级问题。sos!!!!
- ado能否连接到远程数据库?如ineternet上的数据库.
if not (key in [#46..#54]) then
//ASCII从0到9或写if not (key in ['0','1','2','3','4','5','6','7','8','9']) then
key:=#0;
if Not (Key in [#8,#13,'1'..'9']) then
Key := #0;
例如:0是#46
谢谢!