文本框只能输入数字

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

在ONKEYPRESS里写下
procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key>'9' or key<'0' then abort
end;

procedure TSellForm.NumEditKeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['0'..'9'] then
  else
    Key:=#0;
end;

procedure TQueryBilForm.ComPTextKeyPress(Sender: TObject; var Key: Char);
begin
  if Assigned(CurField)  then
   begin
    if (CurField.DataType in [ftFloat,ftCurrency,ftBCD]) then
      begin
      if not((key in ['0'..'9','.','-',#8])) then
       begin
        key := #0
       end
      else
        begin
          if (Key='.') and (Pos('.',TEdit(Sender).Text)<>0) then
             Key:=#0
          else if
             (Key='-') and (Pos('-',TEdit(Sender).Text)<>0) then
             Key:=#0;
        end;
      end
    else if (CurField.DataType in [ftAutoInc,ftSmallint, ftInteger, ftWord,
                 ftBytes,ftLargeint]) then
       begin
       if not ((Key in ['0'..'9','-',#8])) then
        begin
         Key:=#0
        end
        else
        begin
          if(Key='-') and (Pos('-',TEdit(Sender).Text)<>0) then
             Key:=#0;
        end;
       end
    else
       Exit;
   end;
end;

 

try
  StrtoFloat(Edit1.Text);
except
  messagebox(handle,'请输入数字！',mb_ok);
end;

 

Edit 中只输入数字
    SetWindowLong(Edit1.Handle, GWL_STYLE,
                  GetWindowLong(Edit1.Handle, GWL_STYLE) or
                  ES_NUMBER); 

在edit1 keypress事件中加入以下代码即可：

procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','.',#13,#8]) then  key:=#0;
if (key = '.') and (Pos('.', edit1.text) > 0) then   key:= #0;
end;

 

if Not(Key in ['0'..'9'])
再加两个，
if Not(Key in ['0'..'9',#8,#13])
不然按删除或者都会出提示

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not(Key in ['0'..'9',#8,#13]) then
begin
key:=#0; //把输入的字符清空
ShowMessage('输入不是数字');
end;
end;

 

Var
I : Integer;
Begin
Try
I := StrToInt(Edit1.Text);
Except
ShowMessage('XXXX');
end;

 

[分享]限制文本框只能输入数字（delphi）
if not (key in ['.','0'..'9',#8,#13])then key:=#0;               //只能输入数字、小数点和回车、退格
if (key in ['.'])and (pos('.',Edit1.Text)>0)then key:=#0;     //只能输入一个小数点
if (key in ['.'])and(length(Edit1.Text)<1)then key:=#0;       //第一位不能为小数点
if (key in ['0'])and (pos('.',Edit1.Text)<1)and(copy(Edit1.Text,1,1)='0')   then
key:=#0;

//------------------------------------------------------------------------------------------
//只可输入数值
if key=#8 then
  else if (key<#48) or (key>#57) then
    begin
      application.MessageBox('您输入的不是数值!','SUER个人工作室',mb_ok+mb_iconquestion);
      key:=#0;
    end
else
//------------------------------------------------------------------------------------------