在keydown或keypress事件中如何实现判断按下是否数字，如不是数字将此按键取消？谢谢。

Question

在keypress里面写:
   if not key in ['0','1','2','3','4','5','6','7','8','9'] then
   begin
     beep;
     key:=0;
   end;

Answer 1

procedure...
begin
  if not(key in  [0..9]) then
   key:=#0;
end

Answer 2

请问ihihonline(小小)   key:=#0;一句中的#号是什么作用？谢谢。

Answer 3

key:=#0,
好象是说：将ASCII为０的字符赋给Key

Answer 4

if not (Key in ['0'..'9']) then
  key:=#0;

Answer 5

更正；
procedure...
begin
  if not(key in  ['0'..'9']) then
   key:=#0;
end
不好意思；

Answer 6

“#”表示数值在0..255之间数字的相应的AscII码值,#是一个控制字符；
例如：'You'可以表示成#89#111#117
showmessage(#89#111#117)等价于showmessage('You')