Listbox mit doppelten Einträgen

**bluescreen25**

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 ?

zusammenfalten · markieren

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;

markieren

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;

Listbox mit doppelten Einträgen

Listbox mit doppelten Einträgen

Forumregeln