Delphi 让Edit控件只能输入数字

在Edit控件的事件中找到OnKeyPress事件，当Edit控件中输入数据时触发

 

在OnKeyPress事件处理代码中写入

procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char); var c: integer; begin // 加入代码让edit1只能输入数字 if Key = '.' then begin for c := 1 to Length(TEdit(Sender).Text) do begin if TEdit(Sender).Text[c] = '.' then Key := #0; end; end else if Key = #13 then Perform(WM_NEXTDLGCTL, 0, 0) else if Key = #8 then Key := #8 else if (Key < '0') or (Key > '9') then Key := #0; end;

可以通过此方法，也可对输入数据进行不同过滤