Que no sea con Esc

[LOUIS]

Hola Amigos:

Una ayudita porfa, tengo definido un Grid mostrando un campo con varios registros de una dbf, y tengo declarado que con ON KEY ESC ACTION ... (salga del Grid)

Capturo lo que contiene el campo exitosamente, pero lo que quisiera es que no sea con ESC, sino con ENTER al posicionarme en el registro que deseo, o talvez con un Doble Click en el registro deseado

Recuerdo que en fox se abría una dbf
USE CHILDS
y luego se escribía antes del Brow lo siguiente
ON KEY LABEL ENTER KEYBOARD(CHR(23))
BROW FIELD NAME, PARENTS, AGE, CITY NOMO NODE NOAP
con esta sentencia On Key, después de encontrar el registro deseado, uno daba ENTER y salía de la dbf

Estaré atento a vuestras sugerencias, y gracias de antemano.

[LOUIS]

La solución es ON KEY RETURN ...

[Pablo César]

La solución es ON KEY RETURN ...

Querés decir que lo solucionaste con ON KEY RETURN ... ?

Wow, fué resucitado una antigua demanda tuya...

Me alegro que lo hayas resuelto. Pero te faltó describir como hiciste tu salida (contenido de la funcion que atribuyes al ON KEY RETURN)

[LOUIS]

Para entenderlo mejor ...

Code: Select all

*-----------------------
procedure USUARIOSGR

DEFINE WINDOW USERS;
   AT 0,0 ;
   WIDTH  800 HEIGHT 600 NOCAPTION
   @ 0,0 LABEL Label_1 PARENT USERS VALUE "MY SISTEM" WIDTH 800 HEIGHT 100 FONT "ALGERIAN" SIZE 72 FONTCOLOR WHITE BOLD ITALIC TRANSP

   ON KEY RETURN ACTION SIGUE()		<===

USE BD11

   @ 150,300 GRID Grid_1                    ;
      PARENT USERS                       ;
      WIDTH 200 HEIGHT 400               ;
      HEADERS {"J U G A D O R E S"};
      FONT "TAHOMA" SIZE 12 ;
      FONTCOLOR WHITE BOLD BACKCOLOR {100,300,200} ;
      WIDTHS {160}                    ;
      ROWSOURCE "BD11"              ;
      COLUMNFIELDS {"JUGADOR"}

END WINDOW
USERS.CENTER
USERS.ACTIVATE

RETURN

*-----------------------
procedure SIGUE

This.CellValue := JUGADOR
JUEGA = This.CellValue				&& NOMBRE DE QUIEN ACCESA
USERS.Release

DEFINE WINDOW USERS2;
   AT 0,0 ;
   WIDTH  800 HEIGHT 400 BACKCOLOR {0,125,250} NOCAPTION
   @ 000,000 LABEL Label_1 PARENT USERS2 VALUE "MY SISTEM" WIDTH 800 HEIGHT 100 FONT "ALGERIAN" SIZE 72 BOLD ITALIC FONTCOLOR WHITE BACKCOLOR BLUE

   @ 160,100 LABEL Label_2 PARENT USERS2 WIDTH 600 HEIGHT 50 FONT "ARIAL" SIZE 24 BOLD TRANSP;
           VALUE "POR FAVOR INGRESE SU CLAVE"

   @ 220,100 LABEL Label_3 PARENT USERS2 WIDTH 600 HEIGHT 50 FONT "ARIAL" SIZE 24 BOLD TRANSP;
           VALUE "&JUEGA"

   @ 300,200 TEXTBOX CLASE WIDTH 170 HEIGHT 20 PASSWORD
   @ 300,400 BUTTON Button_1 PARENT USERS2 CAPTION "ACCESAR !" ONCLICK ACCESANDO()

END WINDOW

USERS2.CENTER
USERS2.ACTIVATE

RETU

*------------------------------
procedure ACCESANDO()

PASSW = ALLTRIM(USERS2.CLASE.Value)		&& CLAVE DE QUIEN ENTRA
USERS2.Release

RETU

*----------------