设为首页 加入收藏

TOP

Firemonkey限制TEdit只能输入数字的完美方法
2017-10-10 12:06:57 】 浏览:4193
Tags: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


编程开发网
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇【Asphyre引擎】今天终于把精灵de.. 下一篇【Asphyre引擎】学习笔记(一)

评论

帐  号: 密码: (新用户注册)
验 证 码:
表  情:
内  容:

array(4) { ["type"]=> int(8) ["message"]=> string(24) "Undefined variable: jobs" ["file"]=> string(32) "/mnt/wp/cppentry/do/bencandy.php" ["line"]=> int(214) }