Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Problema con DBLookupListBox (https://www.clubdelphi.com/foros/showthread.php?t=8687)

jourdan 30-03-2004 02:57:51

Problema con DBLookupListBox
 
Hola a todos, a ver si a alguien le ha pasado esto:

Tengo un DBLookupListBox conectado a una base de datos firebird de donde obtengo los valores para listar, no actualiza ninguna tabla, solo agarra valores de la base de datos para seleccionarlos y entre varios de estas selecciones formo una cadena, la cuestion es que cuando le pongo en el evento onclick el codigo:

edit1.text := DBLL_Color.SelectedItem;
edit5.Text := edit5.Text + ' ' + edit1.Text;

al correr la aplicacion y picarle con el mouse a la lista repite lo seleccionado 2 o 3 veces depende de que tan rapido le haga click con el raton.

Si hago lo mismo con un listbox normal con el siguiente codigo:
Edit5.Text := edit5.Text + ListBox1.items[listbox1.ItemIndex]
lo hace bien, no se si sea del componente.

Alguien ha tenido el mismo problema??

Desde ya muchas gracias

Alejandro J.

Ruben_Cu 30-03-2004 03:52:14

Hola jourdan, acabo de comprobar lo que escribes y veo que el evento OnClick en el DBLookupListBox se genera dos veces una con el Down del mouse y otra con Up. Mientras que no ocurre así con el Listbox.
Una solución sería cambiar de evento y utilizar, por ejemplo el OnMouseUp, lo he probado y no repite las cadenas.
El porque de esta 'anomalía' en la componente no lo sé, quizas alguien en el club tenga respuesta.
Lo mas importante creo que es tener alternativas de solución y poder continuar en los proyectos
Saludos

jourdan 30-03-2004 17:52:32

Muchas gracias, voy a probar con esto que me dices y continuamos con el desarrollo.

Nuevamente gracias y saludos


La franja horaria es GMT +2. Ahora son las 17:10:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi