procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  cxGrid1TableView1.DataController.RecordCount := 100;
  for i := 0 to cxGrid1TableView1.DataController.RecordCount-1 do
    cxGrid1TableView1.DataController.Values[i,0] := Random(1000);
end;

procedure TForm1.cxGrid1TableView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var H: TcxCustomGridHitTest;
begin
  H := cxGrid1TableView1.GetHitTest(X,Y);
  if H is TcxGridRecordCellHitTest then
    TcxGridRecordCellHitTest(H).GridRecord.Focused := true;
end;