Einzelnen Beitrag anzeigen

hathor
(Gast)

n/a Beiträge
 
#17

AW: Mediaplayer Firemonkey

  Alt 29. Sep 2015, 21:25
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
   MediaPlayer1.FileName:= OpenDialog1.Filename;
   MediaPlayer1.Play;
   FormResize(Self);
end;
  Mit Zitat antworten Zitat