Edit只能输入数字，可以编写代码响应 OnKeyPress 事件，示例代码如下：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8, #13]) then
begin
Key := #0;
ShowMessage('只能输入数字');
end;
end;
用maskedit控件替代edit控件。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024