cxGrid-HitTest的应用

获取列

procedure TfrmGermCellCultivation_PGD.cxGrid1DBBandedTableView1MouseDown(
  Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
var
  AColumn: TcxGridColumn;//cxGrid组件中列的类
  Site: TcxGridSite;//是DevExpress系列控件中的一个重要组件，特别是在处理cxGrid表格视图时。TcxGridSite提供了对cxGrid表格视图的访问和操作，包括获取和设置视图的相关信息、执行数据操作等。
  HitTest: TcxCustomGridHitTest;//HitTest是用来处理点击事件的，从字面上理解首先要能点击的到才能触发事件。
begin
  inherited;
  AColumn := nil;
  if Button = mbRight then
  begin
    Site := Sender as TcxGridSite;
    HitTest := Site.GridView.ViewInfo.GetHitTest(X, Y);//获取
    if HitTest is TcxGridColumnHeaderHitTest then//表头
    begin
      AColumn := TcxGridColumnHeaderHitTest(HitTest).Column;
    end;
    if HitTest is TcxGridExpandButtonHitTest then//在主从表结构时，当点开“+”时怎样将焦点聚在相应主表的记录上
T       cxGridExpandButtonHitTest(HitTest).GridRecord.Focused := True; 
  end;
end;