|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.599 Beiträge
Delphi 12 Athens
|
Re: Datei öffnen mit TOpenDialog
6. Okt 2007, 11:12
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]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|