限制edit框只能输入数字

限制edit框只能输入数字

procedure Tfrm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
 if not (key in ['0'..'9','-','.',#8,#13]) then
     key := #0;
end;

 

procedure Tfrm1.edit1Exit(Sender: TObject);
begin
  inherited;
  if trim(edit1.text)='' then exit;
  try
    StrToFloat(edit1text);
  except
    showmessage('请输入有效实数!');
    edit1.SelectAll;
    edit1.SetFocus;
    abort;
  end;
end;