Delphi - cxGrid - MouseMove


var
  Ht: TcxCustomGridHitTest;
begin
  inherited;
  Ht := cxGridDBTableView2.ViewInfo.GetHitTest(X, Y);
  if (Ht is TcxGridRecordCellHitTest) then begin
    if (TcxGridRecordCellHitTest(Ht).Item.Index = 0) then begin
      Screen.Cursor := crHandPoint
    end else begin
      Screen.Cursor := crDefault;
    end;
  end else begin
    Screen.Cursor := crDefault;
  end;
end;


delphi · ‎cxgrid

Última atualização: 17/10/2017 às 18:24


  • Buscar