怎样让在TDBEDIT中只能输入数字0...9而不能输入字符如a...w

Question

在onkeypress中写  if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', char(VK_BACK),
    char(VK_RETURN), char(VK_LEFT), char(VK_UP), char(VK_RIGHT), char(VK_DOWN)]) then
    key := #0;

Answer 1

PROCEDURE dbedit1keypress(send:Tobject);
begin
if not (key in ['0'..'9']) then key:=chr(0);
end;

Answer 2

在 onkeypress 中if (not key in [0..9])then key:=#0;

Answer 3

PROCEDURE dbedit1keypress(send:Tobject);
begin
if not (key in ['0'..'9',#8]) then key:=#0
end;
backspace应能使用，好像是＃8