본문 바로가기

Delphi/꿀팁

TcxGrid에서 특정 Cell에서 마우스 포인터 바꾸기

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 이벤트에서 특정 셀을 탐지하여 마우스 포인터를 변경합니다.

반응형