16 respuestas en este tema

[jdepaz]

Hola foro,

Anteriormente solo programaba los eventos de un ComboBox mediante codigo, ahora estoy utilizando un DbLooUpComboBox, pero al cargar el Form se muestra vacio,
y quiero que se muestre el primer valor, también, cuando hago click y selecciono un ítem, este valor no se queda en el combo, solo haciéndolo con el teclado.

?Como deberia programar el evento OnClick?

Saludos

[Marc]

Hola. Este componente está enlazado a datos, así que te mostrará el valor que tenga el registro activo. Por lo que si quieres que se muestre el primer valor de la lista, tienes que inicializar el registro con ese valor.

[jdepaz]

Gracias por responder,
en el evento OnCreate del Form:

DbLoUpCbRol.ListFieldIndex:=0;  //o igual a 1

pero no muestra el primer valor,

[tmsanchez]

En mi caso, cuando se que por default debe ir un valor que corresponde a otra tabla, lo asigno en el evento onNewRecord, y esto funciona muy bien para cuando utilizo un TDBcombobox o TBRadioGroup.

delphi

procedure TDataModule.tbMiTablaNewRecord(DataSet: TDataSet);
begin
   // Asigno el valor por default de la tabla a la que hago referencia
   tbMiTablaNombreDelCampo.Value := 1;
end;

Saludos!

[jdepaz]

Creo que lo que me recomiendas no aplica a mi caso, el asunto
es que al mostrarse el Form, los DbLookUpComboBox en la propiedad Text, se muestran vacios, y solo cambian si me posiciono en ellos y navego con las teclas, y si selecciono un ítem por medio del mouse, no queda seleccionado ningun registro.

Saludos

[egostar]

Lo que debes hacer es asignar en la propiedad KeyValue el campo que asignaste en el KeyField del dblookupcombobox.

Algo así :

delphi

procedure TForm1.FormShow(Sender: TObject);
begin
  Table1.Open;
  DBLookupComboBox1.KeyValue := Table1.FieldByName('AREA').Value;
end;

Salud OS

[Marc]

Gracias por responder,
en el evento OnCreate del Form:

DbLoUpCbRol.ListFieldIndex:=0;  //o igual a 1

pero no muestra el primer valor,

Es que esto no se hace así. Este es un DataControl, te está mostrando el contenido de un campo.

Así que cuando abres un formulario no es que no se muestre ningún valor, es que se muestra el valor que tiene ese campo. Y si el campo estuviese en blanco, el dblookupcombobox no puede ni debe mostrar ningún valor.

Si quieres que se muestre algún valor, se lo tienes que asignar al campo al que está enlazado.

[jdepaz]

Correcto,

los enlaces y las propiedades ListSource, KeyValue,etc, estan correctas,
incluso los registros de la tabla asignada se muestran en el componente,
quizas no me explico bien, pero a lo que llego es el por que al cargarse el Form,
no se muestra el primer registro en todo caso, y también cuando selecciono un ítem
con el mouse, este registro no se queda como, sino que se muestra vacio.


Saludos

[Rolphy Reyes]

Saludos.

¿jdepaz puedes mostrarnos tu código para ver la configuración?

No necesariamente tiene que ser el que va producción, puedes agarrar un form nuevo y subirlo.

[jdepaz]

hola buen día,

Realice lo siguiente, en el vento OnActivate del Form:

delphi

dbLoUpCbRol.KeyValue:=LogicaNegocio.DataModule2.SQL_Tbl_rol.FieldByName('ID_ROL').AsInteger;
 dbLoUpCbUsuarios.KeyValue:=LogicaNegocio.DataModule2.SQL_Tbl_usuario.FieldByName('ID_USUARIO').AsInteger;

y listo, ahora cuando el Form se muestra, por default ya se muestra el primer registro, ahora bien, con respecto a seleccionar un ítem con el mouse, (evento click), el ítem no cambia, solo cambia si navego con las flechas de direccionamiento.

Creo que debo programar el evento OnClick de los DbLookUpComboBox,

Saludos

[enecumene]

Te refieres a la rueda del ratón dentro del combo?.

[jdepaz]

me refiero a las flechas del teclado,

[Rolphy Reyes]

Saludos.

El código que nos muestra en el evento OnActivate del Form te recomiendo encarecidamente que lo pongas en el OnCreate o OnShow.

El motivo es que si haces aplicaciones MDI, y tienes varios formularios abiertos entre ellos el que nos muestra, entonces el mismo pierde el foco (por cambiar entre pantalla) cuando vuelva a recuperar el foco se disparara el evento del Activate ocasionandote esto "perdida de data" si seleccionaste algún registro distinto al valor que asignas.

[jdepaz]

Gracias por los consejos

[jdepaz]

Ya casi tirando la toalla,,


Podria ser un bug, pero bueno

Esta aplicación la estoy haciendo en la versión 2010,
y acabo de probar en la versión 7, utilizando los componentes
ZeosLib y me funciona correctamente  .

Podria ser un problema con la libreria de devExpress para Firebird 2.1.x?

[jdepaz]

Hola,

Ahora acabo de instalar Delphi XE, y bueno, probe este proyecto del uso del DbLookupComboBox, y funciona a la perfección, al final no se que pasa que no me funciona con la versión Delphi 2010.

Por favor ponerlo como RESUELTO.

Saludos


PD: estare probando esta versión, que hasta el momento tengo 31 días para hacerlo.

[egostar]

Hola,

Ahora acabo de instalar Delphi XE, y bueno, probe este proyecto del uso del DbLookupComboBox, y funciona a la perfección, al final no se que pasa que no me funciona con la versión Delphi 2010.

Por favor ponerlo como RESUELTO.

Saludos


PD: estare probando esta versión, que hasta el momento tengo 31 días para hacerlo.

Hola jdepaz

Tú mismo puedes cambiar el estado del hilo, ve al primer mensaje y editalo, selecciona el prefijo [RESUELTO] y guardas los cambios.

Por otro lado, aunque ya resolviste el problema con la nueva versión de Delphi, sería interesante corregirlo en la versión 2010

Salud OS