Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
6. Okt 2007
Die Zeilenif currentSong < Playlist.Count then { alles passt, songindex im rahmen}
else mediaplayer1.next;
finde ich persönlich unschön (obwohl syntaktisch richtig), aber das ist Geschmackssache.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
6. Okt 2007
procedure TForm4.MediaPlayer1Notify(Sender: TObject);
begin
if mediaplayer1.Position = mediaplayer1.Length then begin
// position = gesamtlänge, bedeutet dass das lied beendet wurde
Listbox1.Selected := false; // das gerade gespielte lied de-selektieren
inc(currentSong); // aktuellen song um eines erhöhen
if currentSong >= Playlist.Count then
currentsong := 0;...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
6. Okt 2007
Ich denke, so (ungetestet):
//Version ohne den Parameter Songnumber
procedure TForm4.PlayFile; // deklaration von playfile ändern, hier das 2. mal
begin
if ListBox1.ItemIndex < 0 then exit;
if fileexists(ListBox1.Items) then begin
CurrentSong := ListBox1.ItemIndex;
mediaplayer1.Close;
mediaplayer1.FileName := ListBox1.Items;
mediaplayer1.Open;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
6. Okt 2007
Ist denn überhaupt ein Item selektiert?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
6. Okt 2007
*Hehe* Manuel hat denselben Verdacht wie ich ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
6. Okt 2007
Hmm... auf den ersten Blick kann ich keinen Fehler entdecken. :gruebel:
Versuch es mal so:procedure TForm4.Button1Click(Sender: TObject);
var i : integer;
begin
for i := 0 to listbox1.Count - 1 do
if listbox1.Selected then
begin
PlayFile(i);
exit;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
6. Okt 2007
Zeig doch mal den Code zum Abspielen.