如何让一个tedit控件只能输入数字啊？

TEdit?
Delphi吧js可以通过
HTC来实现

解决方案 »

  1.   

    <intput type="Text" onKeyPress="NumFilter()">function NumbFilter()
    {
         if((event.KeyCode<48)||(event.KeyCode>57)){
            event.returnValue=false;
    }
    }
      

  2.   

    <input onkeyup="f(this)" onpaste="f(this)"/>
    <script type="text/javascript">
    //<![CDATA[
        function f(o) {
    o.value = o.value.replace(/[^\d]*/g,"");
    }
    //]]>
    </script>
      

  3.   

    <HTML>
    <HEAD>
    <TITLE> New Document </TITLE>
    <SCRIPT LANGUAGE="JavaScript" defer>
    <!--
    function addAction(){
    var aa=document.getElementsByTagName("input");

    for(var i=0;i<aa.length;i++){
    if(aa[i].type=="text"){
     aa[i].attachEvent("onblur",function(){
         var curValue=event.srcElement.value;    
       reg=/^\d*\.?\d+$/;
      if(!reg.test(curValue)){
           alert("不是数字");
       event.srcElement.focus();
    }      });
    }
    }
    }//-->
    </SCRIPT>
    </HEAD><BODY onload="addAction()">
    <INPUT TYPE="text" NAME="" id="1" value="">
    <INPUT TYPE="text" NAME="" id="2" value="">
    <INPUT TYPE="text" NAME="" id="3" value="">
    <INPUT TYPE="text" NAME="" id="4" value="">
    </BODY>
    </HTML>