关闭

多媒体(闹铃)

标签: timerbuttonsystem音乐
138人阅读 评论(0) 收藏 举报
分类:

多媒体(闹铃)

步骤一:向Form1中添加5个Label组件(Label1用于输出现在时间; Label2---Caption: 现在时间;Label3---Caption: 闹铃时间; Label4---Caption: 闹铃时间; Label5 用于输出闹铃声音的名称),1个Edit组件用于用户设置闹铃时间,1个Button用于导入闹铃音乐。向Form1中添加一个Timer和一个Mediaplayer组件(system组中),其中Mediaplayer---Visible: false;

步骤二:1. Timer1:

        label1.Caption:=timetostr(time());

        if copy(label1.caption,1,5)=edit1.text thenmediaplayer1.Play;

        2.Button1:

        if(opendialog1.Execute)

then  Mediaplayer1.FileName:=opendialog1.FileName;

        Label5.caption:=ExtractFileName(OpenDialog1.FileName);

        Mediaplayer1.Open;

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:28388次
    • 积分:856
    • 等级:
    • 排名:千里之外
    • 原创:63篇
    • 转载:0篇
    • 译文:0篇
    • 评论:2条
    文章存档
    最新评论