Dbgrid Drag&Drop İle Satır Sıralama

[tmrksmt]

Merhaba... Arşivimde bulduğum aşağıdaki kodları deneyebilirsiniz...

type
  TDBGHack = class (TDbGrid)
 end;
  
procedure TFormDrag.DBGrid1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
 gc: TGridCoord;
begin
 gc := TDBGHack (DbGrid1).MouseCoord (x, y);
 if (gc.y > 0) and (gc.x > 0) then
 begin
   DbGrid1.DataSource.DataSet.MoveBy (gc.y - TDBGHack(DbGrid1).Row);
   DbGrid1.DataSource.DataSet.Edit;
   DBGrid1.Columns.Items [gc.X - 1].Field.AsString := EditDrag.Text;
 end;
 DBGrid1.SetFocus;
end;