Hi Leute,
ich habe längere Zeit gesucht aber leider nichts richtiges gefunden.
Ich möchte aus einem StringGrid markierte Zeilen via Drag & Drop in eine 2. StringGrid kopieren.
Kann mir jemand dabei helfen?
Mit einem Button sieht es folgendermaßen aus.
Vielen Dank für eure Hilfe
ich habe längere Zeit gesucht aber leider nichts richtiges gefunden.
Ich möchte aus einem StringGrid markierte Zeilen via Drag & Drop in eine 2. StringGrid kopieren.
Kann mir jemand dabei helfen?
Mit einem Button sieht es folgendermaßen aus.
Code:
procedure TFormMain.SpeedButtonAddToPlaylistClick(Sender: TObject); var i : integer; mdata : TMusicData; mr : TModalResult; begin if (musiclist.getItemCount > 0) then begin mr := mrCancel; for i := StringGridInventory.Selection.Top to StringGridInventory.Selection.Bottom do begin mdata := musiclist.getMusicDataPK(StrToInt(StringGridInventory.Cells[ML_COL_PRIMARY, i])); playlist.addMusicData(mdata, mr); end; refreshStringGridPlayList(); end; end;
Comment