(0~9)数字鍵的键值是多少？(比如回车键是#13)

Question

(0~9)数字鍵的键值是多少？(比如回车键是#13)
因为我要确定用户按下的是不是数字鍵!
在tform1.edit1keypress(sender:tobject;var key:char);
事件中。

Answer 1

用 ord('0') 和 ord('9')自己就知道了

Answer 2

教你通用方法，在这里设个断点，程序中断时，把鼠标放在Key上，不就知道此时Key的值了？

Answer 3

tform1.edit1keypress(sender:tobject;var key:char);
begin
  if (key<>#48) or
   (key<>#49) or
   (key<>#50) or
   (key<>#51) or
   (key<>#52) or
   (key<>#53) or
   (key<>#54) or
   (key<>#55) or
   (key<>#56) or
   (key<>#57) or
   (key<>#13) then
showmessage('只能输入数字!');end;
但我输入数字键时它也会报警!

Answer 4

delphi的帮助里面有功能键的定义也可以用ord来获得估计你用ord函数就够了，而不是要确切的值是多少

Answer 5

baiyongchun(粒子)  if (key<>#48) or
   (key<>#49) or
   (key<>#50) or
   (key<>#51) or
   (key<>#52) or
   (key<>#53) or
   (key<>#54) or
   (key<>#55) or
   (key<>#56) or
   (key<>#57) or
   (key<>#13) then你的这表达式是永真的，你逻辑错了写成这样就行了。
if (key in ['0'..'9', #13]) then
  ...

Answer 6

呵呵！or改and,当然方法不好！

Answer 7

用showmessage()自己看看不就知道了

Answer 8

try
  int:=strtoint(Edit.Text);
except
  showmessage('只能是数字');
  Exit;
end;
我认为这样判断好点！

Answer 9

所有的键直都可以通过按ALt+数字键盘得到，比如‘M’可以按住Alt后，按77
就得到了

Answer 10

A065
B066
C067
D068
E069
F070
G071
H072
I073
J074
K075
L076
M077
N078
O079
P080
Q081
R082
S083
T084
U085
V086
W087
X088
Y089
Z090
a097
b098
c099
d100
e101
f102
g103
h104
i105
j106
k107
l108
m109
n110
o111
p112
q113
r114
s115
t116
u117
v118
w119
x120
y121
z122

Answer 11

你可以在tedit中写一个keypress事件来测一下不就可以了吗？