控制 edit 的输入。只需输入数字。如何实现？在线等

Question

马上给分！谢谢啊

Answer 1

keydown中写
if not  key in [48..57] then
  key=0;

Answer 2

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

Answer 3

来晚了
if not (key in ['0'..'9', #8]) then key:= #0;

Answer 4

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

Answer 5

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 6

不好意思，上面有错
procedure TMainFrm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ((ord(key )>57) or (ord(key)<48)) and (key<>#8) then
   key:=#0;
end;