拖拉求助

Question

各位老大,我想请问一下,如果我想将DBGridA中的一部份内容,拖拉到DBGridB中请问如何做啊!

Answer 1

ondragdrop
ondragover
onmousedown 事件

Answer 2

实现DBGrid A 和 DBGrid B 中的下述事件：procedure TMainForm.GridMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if not (ssDouble in Shift)  then
    TDBGrid(Sender).BeginDrag(FALSE);
end;procedure TMainForm.GridDragOver(Sender,
  Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if Source is TDBGrid then
    Accept := TRUE;
end;procedure TMainForm.GridDragDrop(Sender,
  Source: TObject; X, Y: Integer);
begin
  if Source is TDBGrid then
  {Here do your moving from b to a or from a to b and you should modify the data in the dest grid } 
end;