Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: mp3 player

   
    by DeddyH, 11. Jul 2011
  procedure TForm1.Button2Click(Sender: TObject);
  begin
  (* ListBox ist leer -> Dialog aufrufen *)
  if Form2.Listbox1.Items.Count=0 then
  (* Dialog wurde nicht abgebrochen, Datei also angegeben *)
  if Opendialog1.Execute then
  (* Datei zur ListBox hinzufügen *)
  Form2.Listbox1.Items.Add(Opendialog1.FileName);
  
  (* Wenn Einträge vorhanden, aber keiner gewählt, dann ersten...
• Forum: Multimedia

  AW: mp3 player

   
    by DeddyH, 11. Jul 2011
  Welche Fehlermeldung kommt denn, und wie sieht Dein aktueller Quellcode aus?
• Forum: Multimedia

  AW: mp3 player

   
    by DeddyH, 11. Jul 2011
  Das war ja auch beabsichtigt. Der User muss ja zuerst die Datei auswählen, die er abgespielt haben möchte. Oder soll es immer die erste in der Liste sein? Dann macht ja die Liste keinen Sinn.
  
  Alternativ kannst Du natürlich selbst den ersten Eintrag setzen, wenn einer vorhanden ist und keiner ausgewählt wurde.
  if (DeineListBox.Items.Count > 0) and (DeineListBox.ItemIndex = -1) then
  ...
• Forum: Multimedia

  AW: mp3 player

   
    by DeddyH, 11. Jul 2011
  Wie ist es denn so?
  procedure TForm1.Button2Click(Sender: TObject);
  begin
  (* ListBox ist leer -> Dialog aufrufen *)
  if Form2.Listbox1.Items.Count=0 then
  (* Dialog wurde nicht abgebrochen, Datei also angegeben *)
  if Opendialog1.Execute then
  (* Datei zur ListBox hinzufügen *)
  Form2.Listbox1.Items.Add(Opendialog1.FileName);
• Forum: Multimedia

  AW: mp3 player

   
    by DeddyH, 11. Jul 2011
  Du musst dem Mediaplayer ja auch die abzuspielende Datei zuweisen. Dein Code tut das ja nur, wenn die Liste leer ist.
  
  
  P.S.: Willkommen in der DP :dp: