我想在edit中只能输入数字而不能写入字母，但不知道怎么设置或改变哪个属性，高手请指点！！我只想用edit控件!!

Question

我想在edit中只能输入数字而不能写入字母，但不知道怎么设置或改变哪个属性，高手请指点！！我只想用edit控件!!

Answer 1

if key<=chr(9) and key>=chr(0) then
  你的代码
else
  key=#0

Answer 2

OnKeyPress中加代码，还要加上小数字。

Answer 3

在OnKeyPress中
  if not (key in ['0'..'9',#13,#8]) then
  begin
    key:=#0;
  end;

Answer 4

在OnKeyPress中
  if not (key in ['0'..'9',#13,#8, '-','.']) then
  begin
    key:=#0;
  end;

Answer 5

if key<=chr(9) and key>=chr(0) then
  your code
else
  key=#0

Answer 6

在Edit的OnKeyPress事件中添加以下代码：if not (Key in ['0'..'9']) then Key:=#0;

Answer 7

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

Answer 8

to pazee(耙子) 
控制一下，两个“-”，两个“.” ，“-”的位置