Hallo,
mein Problem ist folgendes:
Ich fülle eine Listbox mit MP3-Files. Eine parallele TStringlist wird als Liste.txt mit abgespeichert.
Zum abspielen der MP3 Files langt ein Doppelklick in der Listbox und er holt über den Index die abzuspielende Datei.
Wenn ich einen Ordner 2 x in die Listbox einlese, landen auch diese Einträge (add) in die TStringlist.
Klicke ich in der Listbox von Anfang beginnend auf eine Datei, selektiert der diese und spielt diese ab.
Klicke ich in der Liste etwas tiefer auf den gleichen Eintrag, springt er in der Listbox hoch zum gleichnamigen und selectiert den oben und spielt diesen ab.
Wie kann das ?
Delphi-Quellcode:
procedure Tmediaplayer_frm.PlayFile(songNumber: integer);
begin
if fileexists(Playlist.Strings[songNumber]) then
begin
CurrentSong := songNumber;
playsong := Playlist.Strings[songNumber];
playsong_name := PlayList_ListBox.Items.Strings[songNumber];
bassplayer.play(playsong);
trackbar_position.MaxValue := BassPlayer.length;
media_scroll_txt_run;
show_tracktime;
PlayList_ListBox.Refresh;
end;
end;
Delphi-Quellcode:
procedure Tmediaplayer_frm.PlayList_ListBoxDblClick(Sender: TObject);
var i : integer;
begin
for i := 0 to PlayList_Listbox.Count- 1 do
if PlayList_ListBox.Selected[i] then break;
PlayFile(i);
PlayList_ListBox.Selected[i] := false;
end;