본문 바로가기

cxGrid

Delphi/간단하게 cxGrid에서 선택한 Cell의 컬럼정보 가져오기 1. OnCellClick 이벤트에서 가져오기 procedure TForm1.CellClick(Sender: TcxCustomGridTableView; ACellFViewinfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin //ACellViewInfo.Item = Column ShowMessage(ACellViewInfo.Item.Caption); end; 2. OnMouseDown 이벤트에서 가져오기 procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y:..
Delphi/꿀팁 TcxGrid에서 드래그드랍으로 레코드 바꾸기 의 DragMode를 dmAutomatic으로 변경. procedure TForm1.cxGridTableView1DragOVer(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin //드래그 허용 조건 설정하기. 현재는 드래그드롭 타겟이 자기자신일 경우만 True Accept := Sender = TcxGridSite(TcxDragControlObject(Source).Contorl); end; procedure TForm1.cxGridTableView1StartDrag(Sender: TObject; var DragObject: TDragObject); begin //Source RecordIndex ..
Delphi/꿀팁 [TcxGrid] OnCellClick 반복 클릭으로 인한 에러 방지하기 const GRID_EVENT_CELLCLICK = WM_USER + 1000; type TForm1 = class(TForm) .. private procedure CellClickMessage(var Message: TMessage); message GRID_EVENT_CELLCLICK; end; procedure TForm1.CellClick( Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin Sender.OnCellClick := nil; TThread.CreateAnonymous..

티스토리툴바