【aardio】如何让edit控件只能输入数字、小数点及 – 号

import win.ui;/*DSG{{*/var winform = win.form(parent=...; text="aardio Form";right=349;bottom=249 )winform.add(edit={ bottom=128;right=256;left=88;top=104;font=LOGFONT( name="宋体";h=-12 );z=1;text="";edge=1;cls="edit" })/*}}*///监视传递给edit的所有消息，并针对需要干预的情况做处理winform.edit.wndproc = function(hwnd,message,wParam,lParam){//如果有_WM_CHAR消息传给edit    if (message == 0x102/*_WM_CHAR*/) {   //如果字符的ASCII码大于等于0或等于小于9        if (wParam >= '0'# && wParam <= '9'#) {        //返回空，即按系统默认的方法继续（不干预系统的正常流程）            return;        }        //选择wParam参数，针对它的不同值处理        select wParam {        //为"-"的ASC码的时候            case '-'# {            //如果edit控件中没有任何字符，-只能在最前面                if (#winform.edit.text == 0)                        //返回空，即按系统默认的方法继续（不干预系统的正常流程）                    return;            }            case '.'# {                        //如果edit控件中匹配不到小数点并且能匹配到数字（因为小数点只能有一个并且必须跟在数字后面）                if ( ! string.match(winform.edit.text, "\.") and string.match(winform.edit.text, "\d"))                    return;            }           //对于删除键，等控制键不干预不处理            case 0x8/*_VK_BACK*/, 0xD/*_VK_RETURN*/, 0x2E/*_VK_DELETE*/ {                return;            }        }        //其它字符录入一概阻断        return 1;    }}winform.show();win.loopMessage();