Multiseleccion en DGBRID

[ecfisa]

Hola.

Un código de ejemplo:

Código Delphi [-]
// Activar multiselección en el DBGrid
procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.Options := DBGrid1.Options + [dgMultiSelect];
end;

// Insertar filas seleccionadas del DBGrid en la tabla DESTINO
procedure InsertSelected(grd: TDBGrid; des: TFDQuery);
var
  i: Integer;
begin
  if grd.SelectedRows.Count = 0 then Exit;
  for i := 0 to grd.SelectedRows.Count-1 do
  begin
    grd.DataSource.DataSet.GotoBookmark(TBookmark(grd.SelectedRows.Items[i]));
    des.SQL.Clear;
    des.SQL.Add('INSERT INTO DESTINO (NAME, CAPITAL)');
    des.SQL.Add('VALUES(:NAME, :CAPITAL)');
    des.ParamByName('NAME').Value    := grd.DataSource.DataSet.FieldByName('NAME').Value;
    des.ParamByName('CAPITAL').Value := grd.DataSource.DataSet.FieldByName('CAPITAL').Value;
    des.ExecSQL;
  end;
end;

// Ejemplo de llamada
procedure TForm1.btnInsertarClick(Sender: TObject);
begin
  InsertSelected(DBGrid1, FDQueryDestino);
end;

Saludos