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.