Drag & Drop DBGrid

[Andidreas]

Danke für den Tipp...

Ich hab das Zellen ermitteln jetzt auf das OnMouseDown Ereignis abgeändert (war für mich logischer) und prüfe zusätzlich das Dragging:

So gehts jetzt...

Delphi-Quellcode:

procedure Tmain_form.dbgrid_parcelsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  gc: TGridCoord;
begin

  If (dbgrid_commissions.Dragging) Then
  Begin
    If (ssLeft In Shift) Then
    Begin
      gc:= dbgrid_parcels.MouseCoord(x, y);
      If (gc.X > 0) And (gc.Y > 0) Then
      Begin
        dbgrid_parcels.DataSource.DataSet.MoveBy(gc.Y - THackDBGrid(dbgrid_parcels).Row);
      End;
    End;
  End;

end;