Obligar Exit

[zeasoftware]

Estoy queriendo aplicar que el cliente no dependa del mouse al 100%, por lo que ya qu eno pude usar el F10 que usaba en mis aplicaciones de MS-DOS, opte por usar el F12, pero, al validar la pulsacion en OnKeyDown de un TForm, lo que me encuentre capturando no se sale del foco, como si yo fuera a dar un click al boton que me provoca la salida, ejemplo:
---------------------------
METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TNotaVenta
Do Case
Case ( nKey == VK_F12 )
::BtnGrabarClick( oSender ) //, ::oCliente:Value )
Return ( 0 )
EndCase
-----------------------------------------
Que me falta poner, para que se comporte como si le diera click en BtnGrabar?
Gracias.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

[jrcpoli-quitar]

Ramón Zea escribió:
> Estoy queriendo aplicar que el cliente no dependa del mouse al 100%, por
> lo que ya qu eno pude usar el F10 que usaba en mis aplicaciones de
> MS-DOS, opte por usar el F12, pero, al validar la pulsacion en OnKeyDown
> de un TForm, lo que me encuentre capturando no se sale del foco, como si
> yo fuera a dar un click al boton que me provoca la salida, ejemplo:
>
> ---------------------------
> METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TNotaVenta
> Do Case
> Case ( nKey == VK_F12 )
> ::BtnGrabarClick( oSender ) //, ::oCliente:Value )
> Return ( 0 )
>
> EndCase
> -----------------------------------------
>
Pues si lo que quieres que se dispare es el botón pues el
nombredelboton:Click()
Si quieres que se dispare desde el evento OnClick del botón el nombre
del evento del botón OnClick()
José Ramón Castro
> Que me falta poner, para que se comporte como si le diera click en
> BtnGrabar?
>
> Gracias.
> --
> Ramón Zea
> 01.993.231-62-29
> http://www.paginasprodigy.com/zeasoftware/
> zeasoftware@prodigy.net.mx <mailto:zeasoftware@prodigy.net.mx>
> zeasoftware@hotmail.com <mailto:zeasoftware@hotmail.com>
> ramonzea@yahoo.com <mailto:ramonzea@yahoo.com>
> zeasoft.movil@hotmail.com <mailto:zeasoft.movil@hotmail.com>
> dirza_com@hotmail.com <mailto:dirza_com@hotmail.com>

[Christian]

Hola yo tambien he pensado en lo mismo y uso la tecla AvPag y lo
programo en OnKeyUp y programo el metodo del formulario y del browse y
me funciona. No se si es la forma mas optima pero funciona, y coincido
con vos en que no hay que depender mucho del mouse se pierde velocidad.
METHOD FormKeyUp( oSender, nKey, nFlags ) CLASS tEditarVentas2
local cKey, xRet
do case
case nKey==33
cKey:='RePag'
::edFecha:SetFocus()
xRet:=0
case nKey==34
cKey:='AvPag'
if !::chkVtaAcopio:lVisible
::btGrabarClick()
else
::chkVtaAcopio:SetFocus()
endif
xRet:=0
endcase
RETURN(xRet)
METHOD TBKeyUp( oSender, nKey, nFlags ) CLASS tEditarVentas2
local cKey:='', xRet
///::lblVendedor:cText:=str(nKey,6)+str(nFlags,12)
do case
case nKey==33
cKey:='RePag'
::edFecha:SetFocus()
xRet:=0
case nKey==34
cKey:='AvPag'
if !::chkVtaAcopio:lVisible
::btGrabarClick()
else
::chkVtaAcopio:SetFocus()
endif
xRet:=0
case nKey==113 .and. nFlags==-1069809663
cKey:='F2'
::TBColumn1BtnClick()
xRet:=0
case nKey==45 .and. nFlags==-1051590655
cKey:='INS'
::btAgregarClick()
xRet:=0
case nKey==46 .and. nFlags==-1051525119
cKey:='DEL'
::btBorrarClick()
xRet:=0
endcase
RETURN(xRet)
Ramón Zea escribió:
> Ya intente como me sugieres, pero, no cierra las ediciones actuales,
y hago el llamado:
>
> ::oBtnGrabar:Click()
>
> Anexo imagen.
>
> Gracias.
>
> ------------------------------------------------------------ ------------
>

[zeasoftware]

Ya intente como me sugieres, pero, no cierra las ediciones actuales, y hago
el llamado:
::oBtnGrabar:Click()
Anexo imagen.
Gracias.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--

Attached files