procedure Tfrm_zdrw.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (((key>='0') and (key<='9')) or (key='.') or (key=#8)) then begin key:=#0; end else if (pos('.', edit1.text)<>0) then if key='.' then begin key:=#0; end; end;
delphi 使edit只能输入带小数点的数值或整数
最新推荐文章于 2023-01-05 09:06:37 发布