Stringgrid: Ganze Zeilen mit der Maus verschieben

[NickelM]

Hm...ganz erlich gesagt blick ich net so wirlich was du machst....

Also ich hab bei einer Anwendung mit Drag und Drop gearbeitet.

Am besten du machst beim ausgehen Grid (also von dem du die daten holst) bei OnMouseDwon Folgendes

Mir ist eingefallen das Grid ne Row hat wo du alle Werte von der Zeile hast
würde in der unit ne var machen (unter Form1 : TForm1 oder so)

Zeile : TStrings;

Delphi-Quellcode:

playgrid.BeginDrag(False);
playgrid.MouseToCell(X, Y, DestCol, DestRow);
Zeile := playgrid.Rows[DestRow]; //du gibt sozusagen die Adresse von der Klasse weiter, weiteres kann ich dir nicht erklären

So bei dem Empfänger bei OnDragOver kommt folgendes:

Accept := True; //mehr nicht so jetzt zum OnDragDrop:

Delphi-Quellcode:

var SourceCol, SourceRow : Integer;
begin
StringGrid2.MouseToCell(X, Y, SourceCol, SourceRow);
If SourceRow > -1 then
StringGrid2.Rows[SourceRow].Assign(Zeile);

Hab es grad geteste funkt.