Qeditnumex Inc

'File source from Holyguard.net

TYPE EditNum EXTENDS QEDIT

     PRIVATE:
     EVENT OnKeyPress (Key AS BYTE)

        DEFSTR AcceptedChar = ",0123456789" & CHR$(8)
        IF INSTR(AcceptedChar,CHR$(Key)) = False THEN
         EditNum.ReadOnly = True
         ELSE
         EditNum.ReadOnly = False              
        END IF
     END EVENT

END TYPE