怎么从一个DBGRID向另一个DBGRID拖动数据？

Question

怎么从一个DBGRID向另一个DBGRID拖动数据？
在线等待！！

Answer 1

Dbgrid1--〉 Dbgrid2
1)修改的属性，把DragMode改为dmAutoMatic, 让用户能够拖放
2)在Dbgrid2的DragOver事件中增加如下代码： 让它能够接收 Drag & dropprocedure TForm1.DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := true;
end;procedure TForm1.DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  i: Integer;
begin
  DBGrid2.DataSource.DataSet.Insert;
  for i:= 0 to DBGrid1.DataSource.DataSet.FieldCount -1 do
  DBGrid2.DataSource.DataSet.Fields[i].Value := DBGrid1.DataSource.DataSet.Fields[i].Value;
  DBGrid2.DataSource.DataSet.Post;
end;

Answer 2

学习
up
为什么非要拖呢
双击到另一个grid不行吗