Quitar teclado

[Mike Serra]

Buenos Tardes foro:

Me gustaría saber de que manera oculto el teclado virtual, ya que tengo una ventana con un get que cuando obtiene el foco se muestra el teclado, pero si cierro la ventana me sigue el teclado abierto.

Muchas Gracias.

[Carles]

Hola Mike,

Yo uso esta metodologia.

1.- Funcion Set/Get q te devuelve el estado del teclado

Code: Select all  Expand view  RUN

#include "FWCE.ch"

*---------------------
FUNCTION Sip( lOnOff )
*---------------------
    LOCAL lOldState := SipInfo()

    IF ValType( lOnOff ) == 'L'

       IF( lOnOff, ShowKeyboard(), HideKeyboard() )

    ENDIF

RETU lOldState

2.- En el programa, cuando necesito activar el teclado, me guardo el estado anterior. Al salir del dialogo restauro el estado anterior

Code: Select all  Expand view  RUN

*-----------------
FUNCTION Edicion()
*-----------------
LOCAL lSip := Sip( .T. )  // Activo teclado

DEFINE DIALOG ...
ACTIVATE DIALOG...

Sip( lSip )    // Restauro estado teclado

RETU NIL