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 vista和win7下如何弹出uac

Delphi 输出用空格对齐字符串的函数

Delphi 显示windows断开网络驱动器对话框

Delphi edit 让密码变成点

Delphi hmac256

Delphi的combobox不能输入只能选择

Delphi中tinifile类 操作ini文件

Delphi unigui从数据表里下载流文件

Delphi 禁用本地网络连接/启用本地网络连接

Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar

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

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