Ver Mensaje Individual
  #2  
Antiguo 13-08-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita