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
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.047780990600586 seconds