Aus irgendwelchen Gründen gehts jetzt nach einem Neustart.
Allerdings habe ich jetzt das Problem, das der TMediaplayer,
Nach einer abgelaufenen Zeit nicht angeht, wenn ich ihn allein auf true
setze. ´Gibt es irgendeinen speziellen Befehl,damit der Mediaplayer dann
automatisch angeht bzw ich nicht extra den Playbutton drücken muss?
PS Mediaplayer1.play allein reicht für das automatische spielen wohl nicht.
Pfad in Edit einfügen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Edit1.Text := OpenDialog1.FileName;
end;
Timer:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Caption := InttoSTr(Weckzeit);
Weckzeit := Weckzeit - 1;
if Weckzeit <= 0 then
begin
Mediaplayer1.Enabled := true;
timer1.Enabled := false;
end;
end;
Mediaplayer:
Delphi-Quellcode:
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
Mediaplayer1.FileName := Edit1.text;
Mediaplayer1.open;
Mediaplayer1.play;
end;