procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Ht: TcxCustomGridHitTest; begin Ht := TcxGridSite(Sender).GridView.Viewinfo.GetHitTest(X,Y); If (Ht is TcxGridRecordCellHitTest) and (TcxGridRecord…