>And just to add - you may move your UPPER case logic into this method as well instead of InteractiveChange, e.g.
>
>

>IF between(m.nKeyCode, 97, 122) && a - z
>   NODEFAULT
>   nKeyCode= m.nKeyCode - 32 && a -> A
>   DODEFAULT(m.nKeyCode, m.nShiftAltCtrl)
>ENDIF
>

>
>They key point is to have NODEFAULT in the code.
>

But this doesn't UPPER a Paste (ctrl+v) string.

>>>I am working on a new edit box class
>>>It has 2 new properties:
>>>1. lUpperCase - if true act as if the format is ! in text boxes... (Format='K' is the only one that works in an edit box according to help.)
>>>Then in the Interactive Change event I place the following code
>>>IF this.lUpperCase
>>> this.Value=UPPER(this.Value)
>>>ENDIF
>>>
>>>This seems to work ok
>>>
>>>Now I would also like to give the ability to hit Enter to move to the next field. Thus the second properrty lExitOnEnter
>>>So to that end, In the KeyPress event I've added:
>>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>>IF this.lExitOnEnter
>>> IF nKeyCode=13
>>> KEYBOARD '{TAB}'
>>> ELSE
>>> DODEFAULT(nKeyCode,nShiftAltCtrl)
>>> ENDIF
>>>ELSE
>>> DODEFAULT(nKeyCode,nShiftAltCtrl)
>>>ENDIF
>>>
>>>This has the desired effect but also has two undesired effects, one major and one minor...
>>>
>>>Minor one... When enter is pressed, the edit box enters the line, the cursor drops down a line in the edit box prior to moving out, and then moves out of the box as intended. Thus it is not necessarily obvious that it worked.
>>>
>>>Major one... Repeated characters i.e. Holding a key down causes repeated characters, as fast as you can type. I tried it with the word TEST. and I got TTEEEESSTTT as the entered value. And I was just typing normally...
>>>
>>>How do I get arround this one?
>>>
>>>TIA,
>>>Mike
>>
>>
>>Try:
>>

>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>IF nKeyCode=13 AND this.lExitOnEnter
>>   NODEFAULT
>>   KEYBOARD '{TAB}'
>>ENDIF
>>