procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (pos('.',Edit1.Text)>0) and (Key='.') then //控制文本框内只能输入一个小数点
begin
Key:=#0;
exit;
end;
if not (Key in ['0'..'9','.',#8]) then //控制文本框内只能输入≥0的实数
Key:=#0;
end;
Delphi学习手记——控制文本框输入的字符类型
最新推荐文章于 2022-04-27 16:52:22 发布