0

私は持っている：

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)
  ...

しかし、インターポーザー クラスのオーバーライドされたメソッドは呼び出されず、それらのブレーキポイントは、アクティブな "淡い青" ではなく "濃い緑" の非アクティブな色のままです。

私は何が欠けていますか？

4

1 に答える 1

2

私は逃した：

TcxGridBandedTableView = class(cxGridBandedTableView.TcxGridBandedTableView)
protected
  function GetViewDataClass: cxGridCustomView.TcxCustomGridViewDataClass; override;
end;
于 2011-08-04T07:20:12.513 に答える