FiveTech Software tech support forums

Posted: **Sun Jun 11, 2006 11:50 am**

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.

Posted: **Mon Jun 12, 2006 6:22 am**

Hola Mike,

Yo uso esta metodologia.

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

Code: Select all

#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

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

DEFINE DIALOG ...
ACTIVATE DIALOG...

Sip( lSip )    // Restauro estado teclado

RETU NIL

FiveTech Software tech support forums

Quitar teclado

Quitar teclado