Como sincronizar un DBLookupListBox con un DBNavigator

[cocute]

Pues eso, aunque no es el uso para el que está pensado, tengo un DBLookupListBox donde lo uso con la opción listsource, para que me muestre el campo "nombre" de las fichas de una base de datos,
entonces al seleccionar los nombres en esa lista voy navegando por las fichas.
hasta ahí todo bien,
pero cuando cambio de ficha con otro control, como por ejemplo un DBNavigator no me cambia la selección del nombre activo en el DBLookupListBox,
se puede hacer lo que digo?
Vamos y que siempre aparezca en el el listbox seleccionada la ficha activa.

gracias

[cocute]

Creo que si no mejor usar un DBCtrlGrid

[ecfisa]

Hola cocute.

Empezado por cocute

...
pero cuando cambio de ficha con otro control, como por ejemplo un DBNavigator no me cambia la selección del nombre activo en el DBLookupListBox,
se puede hacer lo que digo?

Usando el evento OnDataChange del TDataSource asociado:

Código Delphi [-]
procedure TtuForm.tuDataSourceDataChange(Sender: TObject; Field: TField);
var
  dlc: TDBLookupComboBox;
begin
  dlc := tuDBLookupComboBox;
  dlc.KeyValue := TDataSource(Sender).DataSet.FieldByName(dlc.ListField).Value;
end;

Saludos

[cocute]

Muchas gracias, había cambiado a DBCtrlGrid ,
pero luego lo pruebo porque el DBLookupListBox casí me quedaba mejor.