Is editing text

4D v20 R7

Is editing text


Is editing text -> Resultado

Parámetro	Tipo	Descripción
Resultado	Booleano	True si texto está siendo introducido, de lo contrario False

Descripción

El comando Is editing text devuelve True si el usuario está ingresando valores en un objeto de formulario de entrada, y False en todos los demás casos.

Este comando está diseñado para distinguir, dentro del código activado por el evento de formulario On Before Keystroke en un listbox (editable y no editable), entre la entrada de datos de usuario real y el uso de teclas de acceso directo. Por ejemplo, es posible que desee ejecutar un código diferente si el usuario está presionando una tecla para ingresar texto en una celda o para desplazarse por el listbox, por ejemplo para implementar una funcionalidad de tecleo predictivo.

Notas:

El comando Is editing text siempre devuelve True con objetos de entrada y combo.
El comando Is editing text siempre devuelve False con todos los demás objetos, en particular áreas 4D Write Pro y 4D View Pro.

Ejemplo

Desea permitir que el usuario seleccione una línea que comience con la letra o el número ingresado en un listbox editable:

 Case of

    :(FORM Event.code=On Before Keystroke) //se presiona una tecla

       If(Is editing text) //el texto es ingresado

  // no permites algunos caracteres

          If(Keystroke="+")|(Keystroke="-")|(Keystroke="/")|(Keystroke="*")

             FILTER KEYSTROKE("")

          End if

       Else

  //no se ingresa nada, es la funcionalidad de desplazamiento con atajo

          $charCode:=Keystroke

          $char:=Uppercase($charCode) // elimina los acentos

          Case of

             :((($char>="A")&($char<="Z"))|(($char>="0")&($char<="9")))

                ... //Seleccione una línea que comience con la letra o número digitado

             :($charCode>=Left arrow key)&($charCode<=Down arrow key) // flechas izquierda/derecha/arriba/abajo

                FILTER KEYSTROKE("") // deshabilitar acciones de flechas

          End case

       End if

 End case

Ver también

FILTER KEYSTROKE
Get edited text
Type ahead made easy (blog post)