我需要在程序的 OnFormActivate 事件中让音乐在程序启动时在后台播放。我有我想使用的歌曲,但我不知道 Delphi 需要使用什么命令才能开始播放该歌曲。
谢谢你们的帮助:)
最佳答案
使用 TMediaPlayer 组件,它位于组件选项板的“系统”选项卡上。
procedure TForm1.FormActivate(Sender: TObject);
begin
MediaPlayer1.FileName := '<fill in>.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
将 Visible
属性设置为 False。
编辑以回应OP的评论:
要重复播放歌曲,您可以使用 TTimer 组件,该组件也位于“系统”选项卡上。要延迟一秒重复播放歌曲:
procedure TForm1.FormActivate(Sender: TObject);
begin
MediaPlayer1.FileName := '<fill in>.mp3';
MediaPlayer1.Open;
MediaPlayer1.TimeFormat := tfMilliseconds;
Timer1.Interval := MediaPlayer1.Length + 1000;
MediaPlayer1.Play;
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
MediaPlayer1.Play;
end;
将计时器的 Enabled
属性设置为 False。
关于delphi - 如何让音乐在Delphi 7中播放?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7765955/