如何阻止一个非数字键的录入?也就是使字母及其它符号的录入失效?

Question

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key<>vk_0 and key<>vk_1 and key<>vk_2 ...
   then
   exit;
   end;
end;

Answer 1

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

Answer 2

 if (ord(key)<48)and(ord(key)>57)then
  
     key:=chr(0);

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9']) then
    key := #0; 
end;
绝对OK！

Answer 4

我有一张键盘码表，可能对你有用，如要可email 给我:[email protected]

Answer 5

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