Prueba por aqui...
Haber si tiene algo que ver...
procedure TfrmMain.DBLookupComboBoxClick(Sender: TObject);
begin
If Not(MessageDlg('¿Este es el registro?', mtConfirmation, [mbYes, mbNo], 0) = IdYes) Then
Begin
DBLookupComboBox.ListSource.DataSet.Prior; DBLookupComboBox.KeyValue:=DBLookupComboBox.ListSource.DataSet.FieldByName(DBLookupComboBox.DataFiel d).AsVariant;
End;
end;
|