我需要在程序开始时在我的程序的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.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。