Re: GET sin longitud con espacios blancos
Posted: Wed Dec 20, 2017 10:10 am
Y otra...
Los EDITS, cuando se pulsa RETURN suena un 'dong' ... hace un SendMessage()
Yo lo he sacado así...
Los EDITS, cuando se pulsa RETURN suena un 'dong' ... hace un SendMessage()
Yo lo he sacado así...
- Code: Select all Expand view
//...
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 )