es klappt nun einwandfrei nach deine methode @hboy thx...
nur ein prob hab ich nun hier mal der code:
Delphi-Quellcode:
if RadioButton1.Checked then begin
if (ListBox1.ItemIndex > -1) and // Prüft, ob überhapt etwas in den
(ListBox3.ItemIndex > -1) then // Listeboxen ausgewählt ist
for i:=0 to listbox2.Items.Count+1 do begin
if listbox2.Selected[i] = true then begin
dat := pfad+listbox2.Items.Strings[i];
MediaPlayer1.FileName := dat;
break;
end;
end;
end;
wenn mehr code benötigt wird einfach sagen.....
nun werden mp3s in diese listbox eingelesen, wie muss der code eines button lauten der beim klick dann den nächsten eintrag makiert... und das selber vür einen der den voriegen eintrag makiert
PS halt wie bei einem mp3player dann....
-----Edit:---------------------------------
Folgendes würde mir schon reichen (überListbox):
- Abfrage was angeklickt ist
- automatisch das nächste anwählen bzw. wie man das macht
- wenn das prog selber das den nächsten eintrag auswählt das dieser auch makiert ist
---Edit 2-------------------------------------
hat sich erledigt *g* hab nach 30 min rumprobieren nen code hinbekommen der das tut was er soll naja und hilfe stück für stück studiert
hier der code *g*
Delphi-Quellcode:
procedure TForm1.zurueckClick(Sender: TObject);
var i : Integer;
mp3pfile : String;
begin
if Mediaplayer1.Mode = mpOpen then Mediaplayer1.close;
ListBox2.ItemIndex := ListBox2.ItemIndex+1;
Edit2.Text := pfad+Listbox2.Items[ListBox2.ItemIndex];
Mediaplayer1.FileName := Edit2.Text;
mp3File := Concat(MediaPlayer1.FileName);
if not FileExists(mp3File) then begin
ShowMessage('MP3 file '+#13#10+' '+ mp3File +' '+#13#10+'does not exist!');
exit;
end;
GetID3TagInformation(mp3File, edTitle, edArtist, edAlbum, edYear, edGenre, edComment);
MediaPlayer1.Open;
MediaPlayer1.Play;
end;