CxGrid鼠标移到更改颜色

CxGrid鼠标移到更改颜色

设置表单中TcxGrid1DBTableView的Styles属性，设置Selection

procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  HitTest:TcxCustomGridHitTest;
  FViewInfo:TcxGridTableDataCellViewInfo;
begin
  HitTest:=cxGrid1DBTableView1.GetHitTest(X,Y);
  if HitTest=nil then exit;
  if HitTest is TcxGridRecordCellHitTest then
  begin
  
  FViewInfo:=TcxGridTableDataCellViewInfo(TcxGridRecordHitTest(HitTest).ViewInfo);
  FViewInfo.GridRecord.Focused := true;
  end
  else
  FViewInfo:=nil;
end;