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