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 button 实现下拉列表

Delphi 突破主动防御

Delphi代码中嵌入asm代码

提供文件操作 单元

Delphi 将对象转换为json字符串或tjsonobject

Delphi 的链式代码

Delphi 字符串变形替换

Delphi wmi 获取操作系统信息

Delphi 根据关键字取关键词以后的字符串

Delphi多线程图片转换类实现

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

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