如何在Delphi 7中播放音乐?
发布时间:2020-12-15 09:19:42 所属栏目:大数据 来源:网络整理
导读:我需要在程序开始时在我的程序的OnFormActivate事件中播放音乐.我有我想要使用的歌曲,但我不知道Delphi需要使用什么命令来开始播放那首歌. 谢谢你帮帮忙:) 解决方法 使用TMediaPlayer组件,它位于组件面板的“系统”选项卡上. procedure TForm1.FormActivate(
我需要在程序开始时在我的程序的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. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |