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.

[TiammatMX]

Empezado por 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...

Tu solución, adaptada a éste componente:

Código Delphi [-]
procedure TfrmRubrosSIS.grdReporteDragDrop(Sender, Source: TObject; X, Y: Integer);
var
   iIndicador: Integer;
begin
   with TADOQuery.Create(Self) do
   try
      Connection := cnxConexion;
      with grdServicios, grdServicios.DataSource.DataSet do
      begin
         DisableControls;
         for iIndicador := 0 to SelectedList.Count -1 do
         begin
           GotoBookmark(SelectedList.Items[iIndicador]);
            with SQL do
            begin
               Clear;
               Add('INSERT INTO C_SIS_SS_AUXILIAR');
               Add(           '(C_SIS_CODIGO_MATRIZ');
               Add(           ',C_SIS_CLAVE_SIS');
               Add(           ',C_SIS_GENERO');
               Add(           ',E4_SERVICIO_ID');
               Add(           ',E4_SRV_DETALLE_ID)');
               Add(    'VALUES (');
               Add(             QuotedStr(cmbxReporte.Value));
               Add(         ','+QuotedStr(cmbxEtiquetaSIS.Value));
               Add(         ','+GetGenreLabel(cmbxEtiquetaSIS.Value));
               Add(         ','+QuotedStr(QryServiciosE4_SERVICIO_ID.AsString));
               Add(         ','+IntToStr(QryServiciosE4_SRV_DETALLE_ID.AsInteger));
               Add(           ')');
            end;
            ExecSQL;
         end;
         UnselectAll;
         EnableControls;
      end;
   finally
      Free;
   end;
   QryData001.Requery;
   QryServicios.Requery;
end;