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 query1 导出csv txt

delhi 获取进程图片

crc8unt.pas

Delphi 双进程监控保护

Delphi 相对路径

Delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法

Delphi ansicontainstext 是否包含子串

Delphi 得到cxgrid筛选后的记录数

Delphi 验证ip地址

Delphi winapi: getwindowtext - 获取窗口标题

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

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