网上的方法大都会影响复制粘贴等快捷键，使用这个可以完美解决
需要引用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
原文：http://www.cnblogs.com/hmao/p/4955691.html