TOP

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


Firemonkey限制TEdit只能输入数字的完美方法 https://www.cppentry.com/bencandy.php?fid=86&id=130166

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