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.