Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#18

AW: Mediaplayer Firemonkey

  Alt 30. Sep 2015, 05:48
Besser

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName:= OpenDialog1.Filename;
    MediaPlayer1.Play;
    FormResize(Self);
  end;
end;
Sonst wird ein Teil des Codes auch ausgehührt wenn der Dialog abgebrochen wird.
Markus Kinzler
  Mit Zitat antworten Zitat