Hi Robert --
The following code expands on the premise a bit....this also filters bad time values. I've had fun with this thread. ;-)
KeyPress event code:
LPARAMETERS nKeyCode, nShiftAltCtrl
LOCAL lNoDef
lNoDef=.F.
DO CASE
CASE THIS.SelStart=0
IF !(CHR(nKeyCode) $ "01")
lNoDef=.T.
ENDIF
CASE THIS.SelStart=1 OR THIS.SelStart=4
IF !(CHR(nKeyCode) $ "0123456789")
lNoDef=.T.
ENDIF
CASE THIS.SelStart=3
IF !(CHR(nKeyCode) $ "012345")
lNoDef=.T.
ENDIF
CASE THIS.SelStart=6
IF nKeyCode # 65 AND nKeyCode # 80
lNoDef=.T.
ENDIF
ENDCASE
IF lNoDef
NODEFAULT
ENDIF
------------------------------------------------
John Koziol, ex-MVP, ex-MS, ex-FoxTeam. Just call me "X"
"When the going gets weird, the weird turn pro" - Hunter Thompson (Gonzo) RIP 2/19/05
