procedure TForm1.btnTestClick(Sender: TObject);
var
  LDS: TDataSet;
begin
  LDS := DBLookupComboBox1.ListSource.DataSet;
  LDS.DisableControls;
  try
    LDS.Close;
    LDS.Open;
  finally
    LDS.EnableControls;
  end;
end;

FListField: TField;

FListFieldName: string;

DataSet.DataEvent(deUpdateState, 0);

TField.Free

procedure TForm1.btnTestClick(Sender: TObject);
var
  LDS: TDataSet;
  LList: TObjectList<TField>;
  Li: Integer;
begin
  LList := TObjectList<TField>.Create(True);
  try
    LDS := DBLookupComboBox1.ListSource.DataSet;
    LDS.DisableControls;
    try
      LDS.Close;
      for Li := 0 to 9 do
        LList.Add(TIntegerField.Create(nil));
      LDS.Open;
    finally
      LDS.EnableControls;
    end;
  finally
    LList.Free;
  end;
end;

procedure TDataSet.DataEvent(Event: TDataEvent; Info: NativeInt);
begin
  NotifyDataSources := not (ControlsDisabled or (State = dsBlockRead));
  case Event of
    .............
    deUpdateState:
      if ControlsDisabled then
      begin
        Event := deDisabledStateChange;
        Info := Integer(State <> dsInactive);
        NotifyDataSources := True;
        FEnableEvent := deLayoutChange;
      end;
    ...............
end;

procedure TDataSet.DataEvent(Event: TDataEvent; Info: NativeInt);
begin
  NotifyDataSources := not (ControlsDisabled or (State = dsBlockRead));
  case Event of
    .............
    deUpdateState:
      // Send a special event to allow field references to be cleared by data aware controls
      // if a dataset is closed or opened while controls are disabled.
      if ControlsDisabled then
      begin
        IsActive := State <> dsInactive;
        if (IsActive and (FEnableEvent = deLayoutChange)) or         // Opening or
           (not IsActive and (FEnableEvent = deDataSetChange)) then  // Closing
        begin
          Event := deDisabledStateChange;
          NotifyDataSources := True;
          Info := IntPtr(IsActive);
          if IsActive then
            FEnableEvent := deDataSetChange
          else
            FEnableEvent := deLayoutChange;
        end;
      end;
    ...............
end;

procedure TDataSet.DataEvent(Event: TDataEvent; Info: NativeInt);
begin
  NotifyDataSources := not (ControlsDisabled or (State = dsBlockRead));
  case Event of
    .............
    deUpdateState:
      // Send a special event to allow field references to be cleared by data aware controls
      // if a dataset is closed or opened while controls are disabled.
      if ControlsDisabled then
      begin
        IsActive := State <> dsInactive;
        if (IsActive and (FEnableEvent = deLayoutChange)) or         // Opening or
           (not IsActive and (FEnableEvent = deDataSetChange)) then  // Closing
        begin
          Event := deDisabledStateChange;
          NotifyDataSources := True;
          Info := IntPtr(IsActive);
          if IsActive and (FEnableEvent <> deLayoutChange) then
            FEnableEvent := deDataSetChange
          else
            FEnableEvent := deLayoutChange;
        end;
      end;
    ...............
end;

procedure TListSourceLink.LayoutChanged;
begin
  if FDBLookupControl <> nil then FDBLookupControl.UpdateListFields;
end;

procedure TListSourceLink.DataSetChanged;
begin
  if FDBLookupControl <> nil then FDBLookupControl.ListLinkDataChanged;
end;

type
  {$IFDEF VER240}  // DelphiXE3
  TDBLookupComboBox = class(Vcl.DBCtrls.TDBLookupComboBox)
  protected
    procedure ListLinkDataChanged; override;
  end;
  {$ENDIF}

{ TDBLookupComboBox }

{$IFDEF VER240}
procedure TDBLookupComboBox.ListLinkDataChanged;
begin
  UpdateListFields;
  inherited ListLinkDataChanged;
end;
{$ENDIF}

if IsActive then

if IsActive and (FEnableEvent <> deLayoutChange) then