- 每个键盘上的按键都对应一个代码,要实现只输入数字的功能,须知道数字对应的代码,见附录;
- OnKeyDown, OnKeyUp, OnKeyPress皆可以;
- 代码:
// 这里以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;