Focus object

versión 11 (Modificado)

Focus object Puntero

Focus object devuelve un puntero al objeto que tiene el foco en el formulario actual. Si ningún objeto tiene el foco, el comando devuelve Nil. Puede utilizar Focus object para realizar una acción en un área de formulario sin saber cuál objeto está seleccionado actualmente. Asegúrese de probar si el objeto es del tipo correcto, utilizando Type, antes de realizar una acción.

Nota: cuando se utiliza con un list box de tipo array, la función Focus object devuelve un puntero al list box o a la columna del list box que tiene el foco. En el caso de los list boxes de tipo selección, la función devuelve:

• para una columna asociada a un campo, un puntero al campo asociado,

• para una columna asociada a una variable, un puntero a la variable,

• para una columna asociada a una expresión, un puntero a la variable del list box.

Este comando no puede utilizarse con campos en subformularios.

Nota: este comando se utiliza únicamente en el contexto de entrada de datos, de lo contrario se produce un error.

El siguiente ejemplo es un método de objeto para un botón. El método de objeto cambia los datos en el objeto actual a mayúsculas. El objeto debe ser del tipo texto o alfa (tipo 0 ó 24):

   $vp := Focus object  ` Obtener el puntero al último objeto 
   Case of
      : (Nil($puntero))  ` Ningún objeto tiene el foco
         ...
      : ((Type ($vp->) = Is Alpha field) | (Type($vp->) = Is String var))  ` Si es un objeto de tipo texto o alfa 
      $vp-> := Uppercase ($vp->)  ` Cambiar los datos a mayúsculas 
   End case