Delphi Firemonkey限制TEdit只能输入数字的完美方法

本文整理自网络，侵删。

 
需要引用System.Character单元

procedure TMainForm.EditIMEIKeyDown(Sender: TObject; var Key: Word;
var KeyChar: Char; Shift: TShiftState);
begin
// 只能输入数字或控制字符
if not KeyChar.IsNumber and not KeyChar.IsControl then
begin
KeyChar := Char(0);
Key := 0;
end;
end;


这样可以让TEdit只能输入数字，而且不影响ctrl c ctrl v 复制 粘贴 剪切 不影响home键 end键等等

限制只能输入字母，可以用IsLetter
 

相关阅读 >>

Delphi 时间差函数及部分字符串与日期时间相互转换的函数

Delphi ini 文件操作记要: 使用 tmeminifile

Delphi for 循环输出 a-z

Delphi 读取文件的md5值

Delphi 新版内存表 fdmemtable

Delphi 用iisreset命令重启iis

Delphi中使用低层钩子 屏蔽win、ctrl+esc、alt+tab、alt+f4

Delphi有无生成空格的函数，like vb的space(1)

Delphi directx简单应用

Delphi 调试tms web core应用

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

转载请注明出处：木庄网络博客 » Delphi Firemonkey限制TEdit只能输入数字的完美方法