procedure TForm1.cxGridTableViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
AGridSite: TcxGridSite;
AGridView: TcxGridTableView;
AHitTest: TcxCustomGridHitTest;
begin
AGridSite := Sender as TcxGridSite;
AGridView := AGridSite.GridView as TcxGridTableView;
AHitTest := AGridView.GetHitTest(X, Y);
//탐지를 원하는 특정 셀
if (AHitTest is TcxGridRecordCellHitTest) and ((AHitTest as TcxGridRecordCellHitTest).Item) = <특정셀Name>) then begin
AGridSite.Cursor := crHandPoint;
end else begin
AGridSite.Cursor := crDefault;
end;
end;
cxGridTableView의 MouseMove 이벤트에서 특정 셀을 탐지하여 마우스 포인터를 변경합니다.
반응형