Stringgrid: Ganze Zeilen mit der Maus verschieben

[dsjena]

Danke für die Antwort, ich poste erstmal den bisherigen Code. An welcher Stelle müsste ich deinen Code-Schnipsel anwenden? Bei stringgrid.DragDrop?

Delphi-Quellcode:

procedure Tplayer_gui.playgridDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  DestCol, DestRow: Integer;
begin
  playgrid.MouseToCell(X, Y, DestCol, DestRow); // convert mouse coord.
  playgrid.Cells[DestCol, DestRow] := playgrid.Cells[SourceCol, SourceRow];
  if (SourceCol <> DestCol) or (SourceRow <> DestRow) then
    playgrid.Cells[SourceCol, SourceRow] := '';
end;