zoukankan      html  css  js  c++  java
  • 只能录入数字

    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      case Key of 
         '0'..'9':   ;      //对数字键响应 
         #8,#9,#37,#39,#46,#35,#36:;  //退格、Tab、左箭头、右箭头、Delete、End、Home

         #1,#3,#22,#24:;//对Ctrl C、V、A、X响应
    ...

    对自己程序的修改:

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

    -------------------------------------

    #45 Ins键  #27 Esc  #13 回车
    =============================

    转载:http://www.cnblogs.com/Bubalus/archive/2011/04/01/2013691.html

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

    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;

  • 相关阅读:
    关于APNs的错误认识纠正
    关于NSParagraphStyle
    关于离开UIScrollview所在界面时,UIScrollview的偏移量发生变化
    关于核心动画的一个提示
    关于PDF展示解决方案
    DQN 强化学习
    什么是 DQN
    面试时应该问面试官什么
    看demo1
    试着用教程跑cifar10数据
  • 原文地址:https://www.cnblogs.com/jshchg/p/2171726.html
Copyright © 2011-2022 走看看