Delphi 未编译我的插入器类的原因？

我有：

我把它当作

unit unt_QuantumGridInterceptor;

{$OPTIMIZATION OFF}

interface

uses
  { DevExpress }
  cxGridRows,
  cxGridTableView,
  cxGridCustomTableView,
  cxCustomData,
  cxGraphics;

type
  TcxGridDataCellViewInfo = class(cxGridRows.TcxGridDataCellViewInfo)
  protected
    procedure InitTextSelection; override;
  end;

  TcxGridDataRowViewInfo = class(cxGridRows.TcxGridDataRowViewInfo)
  protected
    function GetCellViewInfoClass(AIndex: Integer): TcxGridDataCellViewInfoClass;    override;
  end;

  TcxGridDataRow = class(cxGridTableView.TcxGridDataRow)
  protected
    function GetViewInfoClass: TcxCustomGridRecordViewInfoClass; override;
  end;

  TcxGridViewData = class(cxGridTableView.TcxGridViewData)
  protected
    function GetRecordClass(ARecordInfo: TcxRowInfo): TcxCustomGridRecordClass;   override;
  end;

implementation

....

end.

但是，覆盖方法的插入器类不会被调用，它们的制动点保持为“深绿色”非活动颜色，而不是“淡蓝色”活动颜色

我错过了什么

我错过了：

unt frm_MainForm;

uses
  ...
  cxGridRows,
  cxGridTableView,
  cxGridCustomTableView,
  cxCustomData,
  cxGraphics
  cxClasses,
  cxData,
  cxGridRows,
  // Really the last unit
  unt_QuantumGridInterceptor;

type
  TcxGridDataCellViewInfo = class(unt_QuantumGridInterceptor.TcxGridDataCellViewInfo);
  TcxGridDataRowViewInfo = class(unt_QuantumGridInterceptor.TcxGridDataRowViewInfo);
  TcxGridDataRow = class(unt_QuantumGridInterceptor.TcxGridDataRow);
  TcxGridViewData = class(unt_QuantumGridInterceptor.TcxGridViewData);

  TfrmMainForm = class sealed(TForm)
  ...

TcxGridBandedTableView = class(cxGridBandedTableView.TcxGridBandedTableView)
protected
  function GetViewDataClass: cxGridCustomView.TcxCustomGridViewDataClass; override;
end;