Datei öffnen mit TOpenDialog

[DeddyH]

Hmm... auf den ersten Blick kann ich keinen Fehler entdecken.

[edit]Versuch es mal so:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var i : integer;
begin
   for i := 0 to listbox1.Count - 1 do
     if listbox1.Selected[i] then 
       begin
         PlayFile(i);
         exit;
       end;
    showmessage('ERROR: Musiktitle wählen');
end;

[/edit]