【delphi】实现键盘上0-9数字输入

1. 每个键盘上的按键都对应一个代码，要实现只输入数字的功能，须知道数字对应的代码，见附录；
2. OnKeyDown, OnKeyUp, OnKeyPress皆可以；
3. 代码：

// 这里以KeyPress为例
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If not(key in ['0'..'9']) then  
  Begin
    Key:= #0;         // #0 表示没有输入
    MessageBeep(MB_OK);
  End;
end;

4. 附录
   delphi 键盘按键代码