在onkeypress中写 if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', char(VK_BACK),
char(VK_RETURN), char(VK_LEFT), char(VK_UP), char(VK_RIGHT), char(VK_DOWN)]) then
key := #0;
char(VK_RETURN), char(VK_LEFT), char(VK_UP), char(VK_RIGHT), char(VK_DOWN)]) then
key := #0;
解决方案 »
- delphi7中tidtelnet控件问题, 十万火急
- FreeAndNil((no value))?????
- 批量删除文件的问题.
- 能把FastReport2.46的生成的报表数据转换成 excel格式的吗?
- combobox.item要把其中重复的删除
- 请问一下怎么对一个数组进行赋值?
- 通过程序对数据表进行备份以及还原问题,急...waitting on line!
- 怎样给人加分呀,告知,就有分,UP/////
- ●●●请问: 我使用了 TdxDBDateEdit,如何将时间也保存进数据库???
- 学了一个月的Delphi,自己做起来还是困难重重,为什么呢?您(Delphi高手)是不是曾经也有这感觉?
- delphi下bin目录中有一个scktsrvr.exe,请问源代码在哪里?
- 关于TCHART控件 多个series 里哪条曲线可看到与看不到的方法,简单,马上给分
begin
if not (key in ['0'..'9']) then key:=chr(0);
end;
begin
if not (key in ['0'..'9',#8]) then key:=#0
end;
backspace应能使用,好像是#8