TRichEdit, READONLY y ESC.

[FiveWiDi]

Hola Antonio,

Es normal que en una WINDOW MDICHILD, cuando se crea un control RichEdit con la cláusula READONLY no cierre la ventana al pulsar la tecla ESC?

Yo creo que no.

Para solucionarlo ha modificado el METODO KEYCHAR() de la clase TRichEdit dejándolo de la siguiente forma:

//----------------------------------------------------------------------------//
METHOD KeyChar( nKey, nFlags ) CLASS TRichEdit

if ::lReadOnly .AND. !GetKeyState( VK_ESCAPE)
return 0
endif

Super:KeyChar( nKey, nFlags )

::PostMsg( FM_CHANGE )

if ::lHighlight
::PostMsg( FM_HIGHLIGHT )
endif

return nil
//----------------------------------------------------------------------------//


Un saludo
Carlos G.

[Antonio Linares]

Carlos,

Modificado, gracias!