限制edit框只能输入数字。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','.',#8]) then
begin
key:=#0;
Messagebeep(0);
end;
end;
这种方法还是有不足之处,用户可以使用右键---粘贴,把非数字输入进去
如何也限制使用右键---粘贴
...全文
29012打赏收藏
如何解决限制edit框只能输入数字?
限制edit框只能输入数字。 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','.',#8]) then begin key:=#0; Messagebeep(0); end; end; 这种方法还是有不足之处,用户可以使用右键---粘贴,把非数字输入进去 如何也限制使用右键---粘贴
procedure TF_form1.Edit1Exit(Sender: TObject);
var f:single;
begin
if edit1.Text<>'' then
try
f:=strtofloat(edit1.Text);
except
on E:EConvertError do begin messagedlg('只能填入数字',mtinformation,[mbok],0); edit1.SetFocus;end;
end;