linker_2009
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
procedure TMainFrm.cxGrid5DBTableView1DragDrop(Sender, Source: TObject; X, Y: Integer); var i:integer; ... begin
with TcxGridSite(Sender) do begin if ViewInfo.GetHitTest(X, Y).HitTestCode = htCell then begin i:=TcxGridRecordCellHitTest(TcxGridSite(Sender).ViewInfo.GetHitTest(X, Y)).GridRecord.Values[cxGrid5DBTableView1RecId.Index]; end; end;
// cxGrid5DBTableView1RecId - это столбец, с ID записью, в i кладеться номер записи на которую бросили // Далее обработка данных
...
end;
|