type
TMycxGridBandedHeaderViewInfo = class(TcxGridBandedHeaderViewInfo)
  function GetZone(const P: TPoint): TcxGridItemContainerZone; 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;
    cxGrid1BandedTableView1Column2: TcxGridBandedColumn;
    cxGrid1BandedTableView1Column3: TcxGridBandedColumn;
    cxGrid1BandedTableView1Column4: TcxGridBandedColumn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

{ TcxGridBandedTableView }

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

{ TMycxGridBandedTableViewInfo }

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

{ TMycxGridBandedHeaderViewInfo }

function TMycxGridBandedHeaderViewInfo.GetZone(const P: TPoint): TcxGridItemContainerZone;
var AHitTest: TcxCustomGridHitTest;
begin
  Result := nil;
  AHitTest := GridViewInfo.GetHitTest(P);
  if AHitTest is TcxGridBandHitTest then
    if TcxGridBandHitTest(AHitTest).VisibleRowIndex > 0 then Exit;
  Result := inherited GetZone(P);
end;

end.

type
TMycxTreeListDragAndDropColumnObject = class(cxTL.TcxTreeListDragAndDropColumnObject)
   procedure CheckDragPosition; override;
end;

TcxTreeList = class(cxTL.TcxTreeList)
  function GetDragAndDropObjectClass: TcxDragAndDropObjectClass;override;
end;


  TForm1 = class(TForm)
    cxTreeList1: TcxTreeList;
    cxTreeList1Column1: TcxTreeListColumn;
    cxTreeList1Column2: TcxTreeListColumn;
    cxTreeList1Column3: TcxTreeListColumn;
    Timer1: TTimer;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


{ TcxTreeList }

function TcxTreeList.GetDragAndDropObjectClass: TcxDragAndDropObjectClass;
begin
  Result := inherited GetDragAndDropObjectClass;
  if Result = TcxTreeListDragAndDropColumnObject then Result := TMycxTreeListDragAndDropColumnObject;
end;

{ TMycxTreeListDragAndDropColumnObject }

procedure TMycxTreeListDragAndDropColumnObject.CheckDragPosition;
begin
  inherited CheckDragPosition;
  if DropInfo.RowIndex > 0 then DropInfo.Position := posNone;
end;