procedure TForm1.cxGrid1DBBandedTableView1DblClick(Sender: TObject);
var
  AHitTest: TcxCustomGridHitTest;
  p: TPoint;
  v: Variant;
  c: TcxGridColumn;
  View: TcxGridDBBandedTableView;
begin
  p := TcxGridSite(Sender).ScreenToClient(Mouse.CursorPos);
  AHitTest := TcxGridSite(Sender).ViewInfo.GetHitTest(p.X, p.Y);
  if AHitTest.HitTestCode = htFooterCell then
  begin
    {1}
    ShowMessage(TcxGridFooterHitTest( AHitTest ).ViewInfo.Text);

    {2}
    View := TcxGridSite(Sender).GridView as TcxGridDBBandedTableView;
    c := View.Columns[TcxGridFooterCellHitTest( AHitTest ).Column.Index];
    with View.DataController.Summary do
      v := FooterSummaryValues[FooterSummaryItems.IndexOfItemLink( c )];
    ShowMessage(v);

    Clipboard.AsText := VarToStr(v);
  end;
end;