Página 1 de 1

ENTER EN VEZ DE TAB

Publicado: Lun Jun 04, 2007 4:48 am
por Pedro de Leon Rodas
Como puedo hacer para que en vez de que se pase al siguiente cuadro de texto
con tab se pase con enter
en un cuadro de texto uso lo giguente
METHOD cuentaChar( oSender, nKey, nFlags ) CLASS cuentas_plazos
IF Nkey=13 .or. Nkey=9
::DBF:Ordsetfocus("nombre")
SEEK ::cuenta:value
if found()
msginfo("El nombre de la cuenta ya existe")
return .f.
endif
::meses:lEnabled=.t.
::interes:lEnabled=.t.
::meses:setfocus() &&& de esta forma me posiciono en el siguiente
cuadro de texto
return .f.
endif
RETURN Nil
Pero no quiero estar haciendo todo esto en cada cuadro de texto.
Gracias por toda ayuda.
Desde Cuernavaca Mor., México

ENTER EN VEZ DE TAB

Publicado: Lun Jun 04, 2007 5:14 am
por Carlos Ortiz
Agrega esto en el prg principal de tu aplicación.
Application:lUseReturn := .t.
------------------------------------------------------------ --------------------
Atte. Carlos Ortiz.
PD. Esta en un mensaje de este foro mas abajo, de ahi lo tome.
--