>>Checking on Keypress event? InputMask?
>
>Ok, just found, that my solution doesn't work.
>
>If anyone knows, how to solve this problem?
>
>BTW, another strange thing I noticed: if I paste some text in the field (Ctrl+V), the KeyPress of this field is no longer firing even if I try to change some letters...

I added a new class property StopNow. In InteractiveChange I put this code:

if len(alltrim(this.text))>=this.maxlength
		this.StopNow = .t.
		nodefault
endif

In KeyPress:

lparameters nKeyCode, nShiftAltCtrl
if this.maxlength > 0 
	if between(m.nKeyCode,9,13) && Tab or Enter
	   this.StopNow = .f.
	endif   
endif

And in LostFocus

if this.StopNow
   nodefault && Don't loose focus
endif

This seems to fix the problem. Do you have better idea?

Thanks in advance.