获取列
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;