关于delphi中键盘输入的问题

Question

请问怎样能够让键盘在edit中只输入数字键或backspace键啊

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin 
  if not(key in['0'..'9',#8]）then 
  begin 
    key:=#0; 
    MessageBeep(1); 
  end; 
end;

Answer 2

在 KeyPress 事件中写入: if not (Key in [#8,'0'..'9']) then Key := #0;

Answer 3

谢谢大家啊，小弟刚接触delphi，正在对它摸索中|:)