Verschieben geht!
Nur wie Sorge ich dafür wenn ich z.B. 2 aufeinmal einfüge, dass jeder in seiner eigenen Spalte ist?
Mit folgenden Code füge ich es hinzu:
Delphi-Quellcode:
procedure TFormPlayer.addClick(Sender: TObject);
var
f: PChar;
begin
if not op.Execute then Exit;
f := PChar(op.FileName);
sams[samc] := BASS_SampleLoad(FALSE, f, 0, 0, 3, BASS_SAMPLE_OVER_POS);
if sams[samc] <> 0 then
begin
playlist.Items.Add(op.FileName);
Inc(samc);
end
else
Application.MessageBox('Fehler beim Hinzufügen von der Datei!', 'dAmp', mb_OKCancel +
mb_DefButton1 + MB_ICONQUESTION);
end;