Sincronía entre 2 TDBLookupComboBox con la misma TQuery

[LordRiper]

En el evento OnChange de cada uno le reseteas el Value al otro, solo recuerda desactivar el OnChange del combo al que le vas a cambiar el texto, porque sino se cicla...

[[kuan-yiu]]

Los TDBLookupComboBox no tienen el evento "OnChange". El TDataSource con el que enlazo la TQuery con ellos tiene el evento "OnDataChange" pero no me resulta fácil usarlo para rellenar esos componentes porque el formulario lo tengo por una parte y las consultas las tengo en un "DataModule".

[[kuan-yiu]]

En espera de encontrar una solución más satisfactoria tengo esto:

Código Delphi [-]
procedure TfFactProvExt.DBlcbSiglasClick(Sender: TObject);
begin
  if (flagEmpresa) then
    begin
      flagEmpresa := FALSE;
      DBlcbEmpresa.KeyValue := DBlcbSiglas.KeyValue;
      flagEmpresa := TRUE;
    end;
end;

procedure TfFactProvExt.DBlcbEmpresaClick(Sender: TObject);
begin
  if (flagEmpresa) then
    begin
      flagEmpresa := FALSE;
      DBlcbSiglas.KeyValue := DBlcbEmpresa.KeyValue;
      flagEmpresa := TRUE;
    end;
end;

No me gusta demasiado pero por lo menos me permite seguir avanzando con el resto de las cosas.

[[Lepe]]

Entendería el uso de 2 controles si cada uno tuviese una ordenación, por ejemplo, el combo de siglas ordenado alfabéticamente por siglas y lo mismo para el DBLookUpCombo de nombres.

Si los dos LookupCombo tienen el mismo ListSource, que está ordenado por nombre, ¿por qué no usas un solo Lookupcombo? La propiedad Listfield a:

siglas;nombre

Así mostrará las dos cosas dentro del mismo Combo.

Saludos

[[kuan-yiu]]

Es una cuestión de comodidad para el operario, a petición suya. Tiene que seleccionar la empresa y quiere poder hacerlo usando ambos campos: las siglas en la mayoría de los casos y el nombre en situaciones muy contadas.