type
TMycxGridBandHeaderViewInfo = class(TcxGridBandHeaderViewInfo)
  procedure InitHint(const AMousePos: TPoint; out AHintText: TCaption; out AIsHintMultiLine: Boolean; out ATextRect: TRect); override;
end;

TMycxGridBandViewInfo = class(TcxGridBandViewInfo)
    class function GetHeaderViewInfoClass: TcxGridBandHeaderViewInfoClass; override;
end;

TMycxGridBandsViewInfo = class(TcxGridBandsViewInfo)
  function GetItemClass: TcxGridBandViewInfoClass;override;
end;

TMycxGridBandedHeaderViewInfo = class(TcxGridBandedHeaderViewInfo)
  function GetBandsViewInfoClass: TcxGridBandsViewInfoClass;override;
end;

TMycxGridBandedTableViewInfo = class(TcxGridBandedTableViewInfo)
  function GetHeaderViewInfoClass: TcxGridHeaderViewInfoClass;override;
end;

TcxGridBandedTableView = class(cxGridBandedTableView.TcxGridBandedTableView)
  function GetViewInfoClass: TcxCustomGridViewInfoClass;override;
end;

  TForm1 = class(TForm)
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    cxGrid1BandedTableView1: TcxGridBandedTableView;
    cxGrid1BandedTableView1Column1: TcxGridBandedColumn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



{ TMycxGridBandHeaderViewInfo }

procedure TMycxGridBandHeaderViewInfo.InitHint(const AMousePos: TPoint;
  out AHintText: TCaption; out AIsHintMultiLine: Boolean; out ATextRect: TRect);
begin
  inherited;
  AHintText := 'AAA';
end;

class function TMycxGridBandViewInfo.GetHeaderViewInfoClass: TcxGridBandHeaderViewInfoClass;
begin
  Result := TMycxGridBandHeaderViewInfo;
end;

function TMycxGridBandsViewInfo.GetItemClass: TcxGridBandViewInfoClass;
begin
  Result := TMycxGridBandViewInfo;
end;

function TMycxGridBandedHeaderViewInfo.GetBandsViewInfoClass: TcxGridBandsViewInfoClass;
begin
  Result := TMycxGridBandsViewInfo;
end;

function TMycxGridBandedTableViewInfo.GetHeaderViewInfoClass: TcxGridHeaderViewInfoClass;
begin
  Result := TMycxGridBandedHeaderViewInfo;
end;

function TcxGridBandedTableView.GetViewInfoClass: TcxCustomGridViewInfoClass;
begin
  Result := TMycxGridBandedTableViewInfo;
end;