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;
|
