怎么控制Edit只能输入数字？

Question

这个问题是不是很白痴啊？没办法，帮忙啦。

Answer 1

在OnChange事件中处理：
procedure TForm.EditChange(Sender: TObject);
begin
  try
    StrToInt((Sender as TEdit).Text);
  except
    (Sender as TEdit).Text:=Copy((Sender as TEdit).Text,1,
      Length((Sender as TEdit).Text)-1);
    (Sender as TEdit).SelStart:=Length((Sender as TEdit).Text);
  end;
end;

Answer 2

if not ord(key) in[48..57] then
  key=#0;