delphi Edit只能输入数字或小数点

本文整理自网络，侵删。

 
procedure Tfrmsystem.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
  if (key<>#46) and ((key < #48) or (key > #57)) and (key <> #8) then//如果输入不是数字或小数点（#46代表小数点）
  begin
    key:=#0; //取消输入的内容（#0代表空值）
  end;
end;
 

相关阅读 >>

Delphi 动态数组传递数据示例

Delphi memo 的当前行、当前列与当前字符

Delphi 文件/流的加密解密方法

Delphi txt编码互转 ansi utf-8

Delphi 泛型，存放n张图片

Delphi自动提交网页表单和获取框架网页源码

Delphi now、date、time、currentyear - 当前日期

Delphi安装*.pas扩展名的控件

Delphi xe5 中tmemo控件的应用――for android

Delphi java 日期 转换 获取unix时间戳

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi Edit只能输入数字或小数点