Controlar TDBLookUpComboBox

[santiago14]

Buenas, tengo un dilema con el componente TDBLookUpComboBox.
Lo cargo desde la BD sin problemas, en la lista tenemos varios ítems.
Cuando el usuario selecciona un elemento de la lista, el sistema se detiene y le pregunta si está seguro de cambiar de ítem, esto se hace porque si el tipo responde que "si" algunas cosas del formulario cambian; y si responde que "no" el formulario no debería cambiar y el elemento visible en el combo tampoco debería cambiar al que seleccionó.
Bueno, resulta que si respondo que "si", no hay problema, pero cuando respondo que no, los cambios en el formulario no se hacen pero el elemento visible cambia, y yo no quiero que cambie.

Lo que necesito es que cuando responda que "no" el combo ponga visible la opción que estaba antes de hacer click en él.

Espero haber sido claro.

Gracias, Santiago.

[ecfisa]

Hola santiago14.

Código Delphi [-]
...
var
  OldKeyValue: string;

procedure TForm1.DBLookupComboBox1Enter(Sender: TObject);
begin
  OldKeyValue:= VarToStr(DBLookupComboBox1.KeyValue);
end;

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
  if MessageBox(Handle,'¿ Desea cambiar de ítem ?','',MB_ICONQUESTION+MB_YESNO) = IDNO then
    DBLookupComboBox1.KeyValue:= OldKeyValue
  else
    OldKeyValue:= VarToStr(DBLookupComboBox1.KeyValue);
end;
...

Saludos

[santiago14]

Funciona de maravillas.
Una vez mas, gracias.

Santiago.