限制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;
本文介绍了一个简单的Delphi程序,该程序通过两个事件处理函数限制Edit控件只能接收数字输入,并确保用户输入的是有效的实数。当用户尝试输入非数字字符时,程序会阻止输入;如果用户离开Edit框且输入的内容不是有效的实数,则会提示错误并要求重新输入。

170

被折叠的 条评论
为什么被折叠?



