鼠标移动到cxgrid字段，改变鼠标形状

procedure Twms_system_Notice_Show.cxGrid_attachAllFilesDBTableView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  AHitTest: TcxCustomGridHitTest;
  FTrackItem: TcxCustomGridTableItem;
  FTrackRec: TcxCustomGridRecord;
begin
  AHitTest := (Sender as TcxGridSite).GridView.ViewInfo.GetHitTest(X, Y);
  if AHitTest is TcxGridRecordCellHitTest then
  begin
    FTrackItem := TcxGridRecordCellHitTest(AHitTest).Item;
    FTrackRec := TcxGridRecordCellHitTest(AHitTest).GridRecord;
  end
  else
  begin
    FTrackItem := nil;
    FTrackRec := nil;
  end;

  if (FTrackItem <> nil) and (FTrackRec <> nil) then
  begin
    if (TcxGridDBColumn(FTrackItem).DataBinding.FieldName = 'bltFileName') then
      FTrackRec.GridView.Site.Cursor := crHandPoint
    else
      FTrackRec.GridView.Site.Cursor := crDefault;
  end
  else
    TcxGrid(Sender).Cursor := crDefault;
end;

　　

转载于:https://www.cnblogs.com/yangxuming/p/7649607.html