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;

这样可以让TEdit只能输入数字，而且不影响ctrl c ctrl v 复制粘贴剪切不影响home键 end键等等

限制只能输入字母，可以用IsLetter

时间： 2024-10-12 20:35:45

Firemonkey限制TEdit只能输入数字的完美方法的相关文章

Delphi控件之---UpDown以及其与TEdit的配合使用（比如限制TEdit只能输入数字）

最近在开发中使用到了UpDown这个控件,但是因为之前没有使用过,所以很不熟悉,于是就编写了一个简单的demo来学习UpDown以及其结合TEdit的用法. 初步的常用功能的简介目前(2015.08.07)只是涉及到其简单的用法,因为目前我所需要使用的就只有这些内容,系统化的使用和知识将会在以后需要的时候再补充. 目前涉及到的内容有UpDown组件与TEdit组件的配合使用.UpDown的Position属性. 先看一下这个程序的运行效果图: 图1 程序启动时候的界面图2 程序运行的效果简

c# TextBox只能输入数字的处理方法

//选择文本框的事件窗口,找到按键输入的方法KeyPress,双击建立新的方法.private void textBox6_KeyPress(object sender, KeyPressEventArgs e) { var textBox1 = (TextBox)sender; //判断按键是不是要输入的类型. if (((int)e.KeyChar < 48 || (int)e.KeyChar > 57) && (int)e.KeyChar != 8 &&

执行这些代码, Edit1只能输入数字,小数点和负号,负号和小数点只能输入一个,负号必须在最前,粘贴的数字必须完全正确.

执行这些代码, Edit1只能输入数字,小数点和负号,负号和小数点只能输入一个,负号必须在最前,粘贴的数字必须完全正确. type TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private Edit1OldProc: TWndMethod; procedure Edit1NewProc(var Message: TMessage); public { Public declarations

在文本框里只能输入数字

方法: 键盘输入以后采用的方法: 按下某个键时调用此方法:KeyPressed(KeyEvent e ) 使用此事件,以便不会按照默认的方式处理事件:public void consume() 代码 package cn.idcast2; import java.awt.FlowLayout; import java.awt.Frame; import java.awt.Label; import java.awt.TextField; import java.awt.event.KeyAdap

限制input输入格式：只能输入数字

1.只能输入和粘贴数字 <input onkeyup="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')" /> 2.只能输入数字<input onkeyup="if(/\D/.test(this.value)){alert('只能输入数字');this.value='0';}"> 3

[超牛]只能输入数字的文本框,兼容IE7IE8等

demo地址: 只能输入数字的文本框核心js代码: /* * 只能输入正整数,不能有小数点 * */ onlyIntegerKeyUp = function (e) { if (e === undefined) { e = window.event; } var obj = e.srcElement ? e.srcElement : e.target; var pattern = /[^\d]/ig; var val = obj.value; if (pattern.test(val)) {

js文本框只能输入数字，

1,文本框只能输入数字代码(小数点也不能输入) 复制代码代码示例: <input onkeyup="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')"> 2,只能输入数字,能输小数点. 复制代码代码示例: <input onkeyup="if(isNaN(value))execCommand('und

限制input只能输入数字

限制input表单只能输入数字,代码如下: <input type="text" style="ime-mode:disabled;" onkeypress="return (/^(0|[1-9]\d*)$/.test(String.fromCharCode(event.keyCode)))"/> 说明: 1.style="ime-mode:disabled"意为关闭输入法. 2./^(0|[1-9]\d*)$/为

文本框只能输入数字(兼容IE火狐)

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Typ