edit中只能输入数字、小数点(只可以1个小数点)和负号+多个edit共用一个事件

最新推荐文章于 2011-04-12 09:52:00 发布
原创 最新推荐文章于 2011-04-12 09:52:00 发布 · 751 阅读 · 0 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
收录于
Delphi

当前文章被收录于：

Delphi
24 篇文章 0 人学习
订阅专栏 查看详情
博客内容讲述了如何修改代码，以限制Edit控件只能接受数字、一个点和负号输入，并且此限制能应用于多个Edit控件。原来的代码未限制小数点数量，通过改进后的代码可以实现每个Edit中仅允许一个小数点。

原来的代码无法限制只输入一个小数点

begin
     case Key of
    '0'..'9', #8, #13,#45, #27, '.' : ; //#8退格键，#13回车键
                //可输入0-9，退格，回车，点以及负号
  else
    begin
      MessageBox(0, '请输入数值！', '输入错误', MB_OK+MB_ICONERROR);
      Key := #0;
    end;
  end;
  end;

 

 

限制只输入一个小数点：

在keypress事件加入如下代码即可

if not (key in ['0'..'9','.',#8]) then
    key:=#0;
if (key='.') and (Pos('.',Edit1.Text)>0)   then
      key:=#0;

 

 

 

pos('.',edit1.text)得到的是 . 第一次在edit.text中出现的位置  

因为只要edit1.text中有一个 .     返回值肯定大于0

 

上面这段代码只能在edit1中应用，如果想将该事件应用到多个edit上，可做如下修改：（其他事件同理）

 

 

if not (key in ['0'..'9','.',#8]) then
    key:=#0;
if (key='.') and (Pos('.',TEdit(Sender).Text>0)   then
      key:=#0;

 

 

MFC中封装Edit，只能输入数字，小数点和负号
风暴中心
09-25 1856
重新封装的MFC edit控件，可以根据自己的需求继续优化封装。 转载http://blog.csdn.net/qing666888/article/details/53519768 功能介绍： 1、只能响应输入数字、负号、小数点，以及backspace键； 2、只能输入一个负号、小数点； 3、小数点不能在负号后面； 4、负号只能够在第一位输入； 5、可设置输入的长度（包括负号和小数点）； 在项目头文件新建.h文件，命名NumberEdit.h /*****************.
delphi if...else...语句和函数参数传递
alsamsung的专栏
03-31 2484
<br />1if语句<br />对if-then型语句，仅当条件满足时，语句才执行；对if-then-else型，if语句在两条语句中选择一条执行。条件用布尔表达式建立，句子中的条件部分可以是一系列条件（用and、 or 、 not等布尔操作符联接起来），if语句又可以嵌套另一个if语句，要注意的是，不能在第一句之后、else 关键词之前加分号，否则编译器将告知语法错误。<br /> <br />if ....then<br />     begin<br />      .......<br />   
form隐藏最大化，显示最小化、关闭+程序界面不能调整大小
alsamsung的专栏
03-29 2402
只要将窗体BorderStyle属性设置为：bsToolWindow
复制ListBox的结果
alsamsung的专栏
03-02 1574
根据haochin的回复，我稍微改了一下，最后是这样：use Clipbrdprocedure TForm1.Button2Click(Sender: TObject);var  I : Integer;begin  Clipboard.Clear;  for I := 0 to ListBox1.Count - 1 do  begin    Clipboard.AsText := Clipboard.AsText +listbox1.Items[I]+#13#10;  end;  //Clipboard.
记录类型（1）
alsamsung的专栏
04-12 1126
<br />记录类型<br />记录类型用于定义不同类型数据项的固定集合。记录中每个元素，或者说域，有它自己的类型。记录类型定义中列出了所有域，每个域对应一个域名，通过域名可以访问它。<br />下面简单列举了记录类型的定义、类型变量的声明以及这类变量的使用：type Date = record Year: Integer; Month: Byte; Day: Byte; end; var BirthDay: Date; begin
ListBox第一行字体比其他行小的问题，delphi要不要打包
alsamsung的专栏
03-04 990
<br />ListBox第一行字体比其他行小，把字体设置成“宋体”就可以了。<br /> <br />只是编了个小程序纠结要不啊哟打包，都不知道打包是啥玩意，以为老兄的话让我确定不用打包。“如果没用数据库，没有用Activex控件的话，Delphi根本不用打包，一个Exe就可以执行了。”
edit中只能输入数字、小数点等等候，还能使用ctrl+c和ctrl+c的办法
alsamsung的专栏
04-01 877
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin  case Key of      '0'..'9':   ;      //对数字键响应      #8,#9,#37,#39,#46,#35,#36:;  //对退格键、Tab键、左右箭头响应     #1,#3,#22,#24:;//对Ctrl C、V、A、X响应原帖http://www.delphibbs.com/delphibbs/dispq.asp?lid=1
修改exe图标，加入版本号
alsamsung的专栏
03-29 795
<br />1.修改exe图标<br />Project-> Options-> Application页-> Load   Icon..就可以了<br />2.加入版本号<br />Project --> Options --> version info <br />对Major、Minor、Release、Buil四项定值一般做法是<br />1.2.3.4<br /><br />1. 重大版本修改,可能是使用不同的协议不同的接口<br />2. 功能性版本,重要功能的增加<br />3. BUG修复<
安装vclskin v4.11
alsamsung的专栏
03-28 774
<br />1.下载v4.11解压，copy到lib文件夹下。<br />2.打开d7，分别open vclskin下d7的WinSkinD7R.dpk 和WinSkinD7D.dpk，分别编译，然后install WinSkinD7D.dpk。<br />   此时安装完毕。<br />3.添加 Tools->Environment Options->Library>Library path。添加为E:/Borland/Delphi7/Lib/VCLSKIN.v4.11.2006.7.25.Delphi.
为什么panel总是会遮住speedbutton？
alsamsung的专栏
03-28 677
<br />为什么我的panel总是会遮住speedbutton？是不是我的speedbutton的transparent设置为true有问题？但是修改成false也不行,<br />我是菜鸟，第一次发贴，大人帮忙！<br /> <br />hedong(hedong)▲▲▲▲△-盒子活跃会员2003-4-28 13:24:438楼：这也算问题？楼主需要看看入门书籍。<br /><br />如果speedbutton和panel的parent都是Form，当然运行时speedbutton会被panel挡住。
判断edit是否为空
alsamsung的专栏
03-01 669
判断edit是否为空
判断groupbox中所有的edit是否为空，并给出空的哪个edit为空
alsamsung的专栏
03-03 550
procedure TForm1.Button1Click(Sender: TObject);var  I:Integer;const  arr: array[0..1] of string = ('edit1为空', 'edit2为空');begin  for I :=0to grp1.ControlCount -1do    begin      if grp1.Controls[i] is TEdit then      begin        if (grp1.Controls[i] as TEd
判断groupbox中所有的edit是否为空，并给出空的哪个edit为空(2)
alsamsung的专栏
03-03 532
<br />procedure isNull(grp:TGroupBox);<br />var<br />  I:Integer;<br />const<br />  arr: array[0..1] of string = ('edit1为空', 'edit2为空');<br />begin<br />  for I := 0 to grp.ControlCount - 1 do    begin<br />      if grp.Controls[i] is TEdit then<br />     
限定只能输入数字和小数点
alsamsung的专栏
03-01 479
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin     case Key of    '0'..'9', #8, #13, #27, '.' : ;  else    begin      MessageBox(Handle, '请输入数字', PChar('输入错误'), MB_OK + MB_ICONINFORMATION);      Key := #0;    end;  end;end;
idea 本地ai continue-intellij-extension-1.0.67.zip 插件
最新发布
07-23
idea 本地ai continue-intellij-extension-1.0.67.zip 插件
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值