Controlar <ENTER> en Browse

[MARIO DAVALOS]

Hola a todos,
Estoy desplegando un TDBBrowse para mostrar una lista de Clientes y poder
seleccionar una linea, actualmente doy dobleclick, el cual cierra el cuadro
y me trae el puntero de la tabla, esto es muy sencillo lo hago con el evento
onDblClik, la pregunta es como hago esto mismo al dar <ENTER>, tengo
lAllowEdit :=.f. y nada en el evento onEdit.
La idea es que haga la misma acción al dar dobleclick o <ENTER>.
Saludos y gracias,
Mario Dávalos
México, D.F.

[ddupre]

Mario:
Yo hago algo parecido a lo que planteas de esta forma, si bien no es
exactamente lo mismo, creo que la idea te puede servir.
Creo un método en el formulario donde esta el TdbBrowse que hace esto:
METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TRamos
do case
case nKey == VK_INSERT
::oToolbar1:aItems[ 6 ]:OnClick() // aqui disparo un evento de
un item de una toolbar el cual ejecuta un alta en una tabla
Return 0
case nKey == VK_DELETE
::oToolbar1:aItems[ 7 ]:OnClick() // aqui disparo un evento de
un item de una toolbar el cual ejecuta un baja en una tabla
Return 0
case nKey == VK_RETURN
::oToolbar1:aItems[ 8 ]:OnClick() // aqui disparo un evento de
un item de una toolbar el cual permite modificar un registro
// en una tabla
Return 0
endcase
RETURN Nil
TRamos es un formulario que contiene una toolbar y un tdbbrowse, si doy
dobleclick en una linea disparo lo mismo que esta en
case nKey == VK_RETURN
Saludos
Daniel.
MARIO DAVALOS escribió:
> Hola a todos,
>
> Estoy desplegando un TDBBrowse para mostrar una lista de Clientes y
> poder seleccionar una linea, actualmente doy dobleclick, el cual
> cierra el cuadro y me trae el puntero de la tabla, esto es muy
> sencillo lo hago con el evento onDblClik, la pregunta es como hago
> esto mismo al dar <ENTER>, tengo lAllowEdit :=.f. y nada en el evento
> onEdit.
>
> La idea es que haga la misma acción al dar dobleclick o <ENTER>.
>
> Saludos y gracias,
> Mario Dávalos
> México, D.F.

[jose.luis]

Daniel,
Prueba a capturar el evento onKeyDown del browse verificando que han pulsado
la tecla INTRO y lanzando el evento ondblclick.
Algo así:
METHOD DBBrowse1Char( oSender, nKey, nFlags ) CLASS TForm1
IF nKey = VK_RETURN
oSender:onDblClick()
REturn 0
ENDIF
RETURN Nil
Saludos,
José Luis Capel
"Daniel Du Pré" <ddupre@macrosistemas.com.uy> escribió en el mensaje
news:[email=48ab93e4@ozsrv2.ozlan.local...]48ab93e4@ozsrv2.ozlan.local...[/email]
> Mario:
>
> Yo hago algo parecido a lo que planteas de esta forma, si bien no es
> exactamente lo mismo, creo que la idea te puede servir.
>
> Creo un método en el formulario donde esta el TdbBrowse que hace esto:
>
>
> METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TRamos
>
> do case
> case nKey == VK_INSERT
> ::oToolbar1:aItems[ 6 ]:OnClick() // aqui disparo un evento de un
> item de una toolbar el cual ejecuta un alta en una tabla
> Return 0
> case nKey == VK_DELETE
> ::oToolbar1:aItems[ 7 ]:OnClick() // aqui disparo un evento de un
> item de una toolbar el cual ejecuta un baja en una tabla
> Return 0
> case nKey == VK_RETURN
> ::oToolbar1:aItems[ 8 ]:OnClick() // aqui disparo un evento de un
> item de una toolbar el cual permite modificar un registro
> // en una tabla
> Return 0
> endcase
>
> RETURN Nil
>
> TRamos es un formulario que contiene una toolbar y un tdbbrowse, si doy
> dobleclick en una linea disparo lo mismo que esta en
> case nKey == VK_RETURN
>
> Saludos
> Daniel.
>
>
> MARIO DAVALOS escribió:
>> Hola a todos,
>>
>> Estoy desplegando un TDBBrowse para mostrar una lista de Clientes y poder
>> seleccionar una linea, actualmente doy dobleclick, el cual cierra el
>> cuadro y me trae el puntero de la tabla, esto es muy sencillo lo hago con
>> el evento onDblClik, la pregunta es como hago esto mismo al dar <ENTER>,
>> tengo lAllowEdit :=.f. y nada en el evento onEdit.
>>
>> La idea es que haga la misma acción al dar dobleclick o <ENTER>.
>>
>> Saludos y gracias,
>> Mario Dávalos
>> México, D.F.

[jose.luis]

Ups..
Iba dirigido a Mario...

[jose.luis]

Vaya!
Hoy es el día de las equivocaciones...
>
> Prueba a capturar el evento onKeyDown del browse verificando que han
> pulsado la tecla INTRO y lanzando el evento ondblclick.
el evento es el onChar.... no el OnKeyDown
>
> Algo así:
>
> METHOD DBBrowse1Char( oSender, nKey, nFlags ) CLASS TForm1
>
> IF nKey = VK_RETURN
> oSender:onDblClick()
> REturn 0
> ENDIF
>
> RETURN Nil
>
> Saludos,
> José Luis Capel
>
>

[MARIO DAVALOS]

Gracias Daniel, esto es exactamente lo que necesito.
Saludos,
"Daniel Du Pré" <ddupre@macrosistemas.com.uy> escribió en el mensaje de
noticias news:[email=48ab93e4@ozsrv2.ozlan.local...]48ab93e4@ozsrv2.ozlan.local...[/email]
> Mario:
>
> Yo hago algo parecido a lo que planteas de esta forma, si bien no es
> exactamente lo mismo, creo que la idea te puede servir.
>
> Creo un método en el formulario donde esta el TdbBrowse que hace esto:
>
>
> METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TRamos
>
> do case
> case nKey == VK_INSERT
> ::oToolbar1:aItems[ 6 ]:OnClick() // aqui disparo un evento de un
> item de una toolbar el cual ejecuta un alta en una tabla
> Return 0
> case nKey == VK_DELETE
> ::oToolbar1:aItems[ 7 ]:OnClick() // aqui disparo un evento de un
> item de una toolbar el cual ejecuta un baja en una tabla
> Return 0
> case nKey == VK_RETURN
> ::oToolbar1:aItems[ 8 ]:OnClick() // aqui disparo un evento de un
> item de una toolbar el cual permite modificar un registro
> // en una tabla
> Return 0
> endcase
>
> RETURN Nil
>
> TRamos es un formulario que contiene una toolbar y un tdbbrowse, si doy
> dobleclick en una linea disparo lo mismo que esta en
> case nKey == VK_RETURN
>
> Saludos
> Daniel.
>
>
> MARIO DAVALOS escribió:
>> Hola a todos,
>>
>> Estoy desplegando un TDBBrowse para mostrar una lista de Clientes y poder
>> seleccionar una linea, actualmente doy dobleclick, el cual cierra el
>> cuadro y me trae el puntero de la tabla, esto es muy sencillo lo hago con
>> el evento onDblClik, la pregunta es como hago esto mismo al dar <ENTER>,
>> tengo lAllowEdit :=.f. y nada en el evento onEdit.
>>
>> La idea es que haga la misma acción al dar dobleclick o <ENTER>.
>>
>> Saludos y gracias,
>> Mario Dávalos
>> México, D.F.

[MARIO DAVALOS]

Así­ hay dí­as, lo importante es que llega la ayuda, funciona perfecto
gracias.
Saludos,
"José Luis Capel -" <jose.luis@capelsoft.com> escribió en el mensaje de
noticias news:48abd983$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Vaya!
>
> Hoy es el dí­a de las equivocaciones...
>
>>
>> Prueba a capturar el evento onKeyDown del browse verificando que han
>> pulsado la tecla INTRO y lanzando el evento ondblclick.
>
> el evento es el onChar.... no el OnKeyDown
>
>
>>
>> Algo así­:
>>
>> METHOD DBBrowse1Char( oSender, nKey, nFlags ) CLASS TForm1
>>
>> IF nKey = VK_RETURN
>> oSender:onDblClick()
>> REturn 0
>> ENDIF
>>
>> RETURN Nil
>>
>> Saludos,
>> José Luis Capel
>>
>>
>
>
>