Drag & Drop de una selección múltiple.

[ecfisa]

Hola tiammat.

No conozco el componente que mencionas pero, por si te pudiera servir de algo, te pongo un ejemplo de como podes copiar los registros seleccionados de un TDBGrid a otro usando Drag & Drop.

Para el ejemplo, los DataSets (orígen y destino) asociados a ambos DBGrids son iguales:

Código Delphi [-]
...
procedure TForm1.DBGridDestinoDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TDBGrid;
end;

procedure TForm1.DBGridDestinoDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  i,j: Integer;
begin
  for i:= 0 to DBGridOrigen.SelectedRows.Count-1 do
  begin
    DBGridOrigen.DataSource.DataSet.GotoBookmark(Pointer(DBGridOrigen.SelectedRows.Items[i]));
    DBGridDestino.DataSource.DataSet.Append;
    for j:= 0 to DBGridDestino.FieldCount-1 do
      DBGridDestino.Fields[j].Value := DBGridOrigen.Fields[j].Value;
    DBGridDestino.DataSource.DataSet.Post;
  end;
end;

procedure TForm1.btnDragDropClick(Sender: TObject);
begin
  if DBGridOrigen.SelectedRows.Count > 0 then
    DBGridOrigen.BeginDrag(True);
end;

Saludos.