Los EDITS, cuando se pulsa RETURN suena un 'dong' ... hace un SendMessage()
Yo lo he sacado así...
Code: Select all
//...
OVERRIDE METHOD KeyChar IN CLASS TEdit WITH xEditKeyChar
//...
FUNCTION xEditKeyChar( nKey, nFlags )
Local Self := HB_QSelf()
FWLOG ValType( Self ), ::ClassName()
IF nKey == VK_RETURN
Return 0
ENDIF
return ::Super:KeyChar( nKey, nFlags )