TRichEdit, READONLY y ESC.
Posted: Mon Feb 09, 2009 7:39 pmHola 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.
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.
