stop the use of Enter Key

[mstrcmtr]

How can stop the use of Enter Key in edit box for going on next line

 

[mydocpro]

push key
ON KEY LABEL ENTER keyboard ""
*pop key ... when finished

 

[mstrcmtr]

Coding In KeyPress of Edit1 box

LPARAMETERS nKeyCode, nShiftAltCtrl

IF nKeyCode = 13 && Enter
PUSH KEY

ON KEY LABEL ENTER KeyBoard ""

=MESSAGEBOX('Enter Key not allowed in Message Box',0+16,'Use spacebar for next Line')

POP KEY

RETURN
ENDIF

Still enter key active not deactivate

 

[atlopes]

Extend your EditBox class

DEFINE CLASS ExtendEditBox AS EditBox

	AllowEnters = .T.
	
	PROCEDURE KeyPress
	LPARAMETERS KeyCode, ShiftAltCtrl
	
		IF m.KeyCode = 13 AND !This.AllowEnters
			NODEFAULT
		ENDIF

	ENDPROC

ENDDEFINE

and set .AllowEnters in the same way that you set .AllowTabs.

 

[Mike Lewis]

As you can see, there are several different approaches.

The simplest is to add this code to the edit box's Keypress event:

PARAMETERS nKeyCode, nShiftAltCtrl

IF nKeyCode = 13
  NODEFAULT
ENDIF

Also, make sure that the form's KeyPreview property is set to .F. (which is the default).

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads