Página 1 de 1

los TdbBrowse con lFilterBar y el evento on exit

Publicado: Vie Nov 11, 2005 1:31 pm
por fredy[1]
Hola!,
Tengo un formulario con un evento onExit en un TdbEdit y un browse con el
lFilterBar a .t.
Me he dado cuenta de que cuando pincho en el filtro del browse no se dispara
el evento onExit del Edit.
lo utilizo para saber en qué control estoy antes de entrar en el browse,
de tal forma que al hacer doble click en el browse pueda retroceder al control
en el que me encotraba. Me funciona bien cuando pincho directamente sobre
una lí­nea del browse, pero si primero hago una búsqueda mediante la barra
de filtro me da un error, ya que al no ejecutarse el onExit (que sólo tiene
la lí­nea ::prevcontrol := osender) , ::prevcontrol está a nil.
Un saludico,
Fredy

los TdbBrowse con lFilterBar y el evento on exit

Publicado: Vie Nov 11, 2005 1:38 pm
por jfgimenez
Fredy,
> lo utilizo para saber en qué control estoy antes de entrar en el browse,
> de tal forma que al hacer doble click en el browse pueda retroceder al
> control en el que me encotraba. Me funciona bien cuando pincho
> directamente sobre una línea del browse, pero si primero hago una búsqueda
> mediante la barra de filtro me da un error, ya que al no ejecutarse el
> onExit (que sólo tiene la línea ::prevcontrol := osender) , ::prevcontrol
> está a nil.
Por favor, haz una pequeña prueba: donde compruebas ::prevcontrol, pon lo
siguiente:
IF ::prevcontrol == Nil
::prevcontrol := GetControlFromHandle( GetFocus() )
LogDebug( ::prevcontrol:ClassName )
ENDIF
y dime lo que sale en la ventana de debug.
--
Un saludo,
José F. Giménez

los TdbBrowse con lFilterBar y el evento on exit

Publicado: Vie Nov 11, 2005 2:06 pm
por Fredy
Hola,
Me dice que es un TDBBrowse
el error lo da en la lí­nea
::PrevControl:Value := AllTrim( Str( ::oContactos:Codigo ) )
::PrevControl:SetFocus()
Un saludico,
Fredy
> Fredy,
>
>> lo utilizo para saber en qué control estoy antes de entrar en el
>> browse, de tal forma que al hacer doble click en el browse pueda
>> retroceder al control en el que me encotraba. Me funciona bien cuando
>> pincho directamente sobre una lí­nea del browse, pero si primero hago
>> una búsqueda mediante la barra de filtro me da un error, ya que al no
>> ejecutarse el onExit (que sólo tiene la lí­nea ::prevcontrol :=
>> osender) , ::prevcontrol está a nil.
>>
> Por favor, haz una pequeña prueba: donde compruebas ::prevcontrol, pon
> lo siguiente:
>
> IF ::prevcontrol == Nil
> ::prevcontrol := GetControlFromHandle( GetFocus() )
> LogDebug( ::prevcontrol:ClassName )
> ENDIF
> y dime lo que sale en la ventana de debug.
>
> José F. Giménez
>

los TdbBrowse con lFilterBar y el evento on exit

Publicado: Vie Nov 11, 2005 2:20 pm
por jfgimenez
Fredy,
> Me dice que es un TDBBrowse
>
> el error lo da en la línea
> ::PrevControl:Value := AllTrim( Str( ::oContactos:Codigo ) )
> ::PrevControl:SetFocus()
Ok. Gracias. Ya sabemos porque pasa. Esta tarde intentaré corregirlo.
--
Un saludo,
José F. Giménez