I have code in a textbox's lostfocus that moves the cursor to the next row same column when the user leaves the current control. However, I need to prevent this happening when the user uses the mouse to click outside (leave) the control. How can I trap for the mouse and cause a dodefault() in the lostfocus?


COLUMN1.TEXT1.LOSTFOCUS:

* I want dodefault for when the mouse is used to leave the control
* by clicking on another control or row.
nkeycode = LASTKEY()
IF (!INLIST(nkeycode, 5, 15))
	NODEFAULT
	WITH THISFORM.GRID
		SKIP IN (.RECORDSOURCE)
	ENDWITH
	IF THISFORM.nrow > 0
		THISFORM.GRID.ACTIVATECELL( THISFORM.nrow + 1, 3)
	ENDIF
ELSE
	DODEFAULT()
ENDIF