Einzelnen Beitrag anzeigen

Benutzerbild von Specialwork
Specialwork

Registriert seit: 10. Jan 2003
Ort: Schwall
71 Beiträge
 
Delphi 8 Professional
 
#2
  Alt 10. Jun 2003, 23:56
Hallo, nirvanalizer

Ich habs mal bei mir ausprobiert

Windows XP Prof.
Delphi 6 Prof.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    MediaPlayer1.Close;
    MediaPlayer1.FileName:=OpenDialog1.FileName;
    MediaPlayer1.Open;
  end;
end;
funktioniert einwandfrei !

Gruß, Tom
Thomas van Veen
Es gibt keine Probleme, nur Lösungen, auf die man nicht gleich kommt !
  Mit Zitat antworten Zitat