Thanks yet again, Sergey, that did the trick.
>Try
>
> PROCEDURE text1.KeyPress
> LPARAMETERS nKeyCode, nShiftAltCtrl
> *DODEFAULT(Asc(Lower(Chr(nKeyCode))), nShiftAltCtrl)
> Textbox::KeyPress(Asc(Lower(Chr(nKeyCode))), nShiftAltCtrl)
> NODEFAULT
> ENDPROC
>
>
>>
>>Curiously, when I put your code into my Textbox.Keypress, all keystrokes get ignored.
>>
>>Could it be that because this textbox is a sub-class of some basetextbox, this causes problems?
>>
>>In any case, this is an after-Christmas problem ... time to quit until Monday.
Jim Nelson
Newbury Park, CA