说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用Delphi制作动态有声标签

HTML文档下载 WORD文档下载 PDF文档下载
用Delphi制作动态有声标签

原理:通过标签和表单的OnMouseMove事件判断应何时改变、恢复标签位置,用sndplaysound()函数使鼠标触发相应事件后执行播放声音的动作。

首先进入Delphi集成环境,在“File”菜单中选“New application”,在“Standard”选项卡上选取两个“Label”放置到表单上。在Object inspector中将Label1与Label2的“Caption”属性设为“关闭表单”。双击“Font”属性,将字体大小设为12。再将“Top”与“Lef”分别设为108、170。将Label2置于Label1之上。以上是两个标签的共同属性,现在选Label1,将其颜色设为白色,再选Label2,在Object inspector中双击其OnMouseMove项,编写如下代码:“Label2.Top:=109;”,接下来再为表单编写OnMouseMove事件代码:“Label2.Top:=108;”。运行表单,把鼠标移到标签上,怎么样,效果还不错吧。下面让我们为它加上声音。

找到两个短小的wav文件,假设为cj1.wav和cj2.wav。在表单单元中的uses句之后加上“mmsystem”(即调用Windows多媒体函数动态链接库)。在implementation下加上“f:boolean;”。为Label2的OnClick事件编写代码:“sndplaysound(′cj1.wav′,snd_ async);”,为OnMouseMove事件加入“if f then sndplaysound(′cj2.wav′,snd_ async);f:=false;”两句。最后在表单的OnMouseMove事件中加入“f:=true;”。

保存文件再运行它,动态有声标签就制作完成了。

以上在Delphi3.0中运行通过。

MODEM通讯意外处理-VB资料 MsComm 文字传输-VB资料 PING一个IP地址(向它发送一个数据包并等待回应) -VB资料 SMTP协议简介 (Simple Mail Transfer Protocol) -VB资料 VB5.0 中远程数据库的访问 VB下如何编写CRC校验程序 Visual Basic 6中发送邮件的新方法 Visual Basic通信程序设计 Whois 示例程序-VB资料 Winsock Terminal示例程序 -VB资料 WinSock断开导致客户端问题-VB资料 把Outlook信箱中的附件另存为 -VB资料 保证连网计算机时间同步-VB资料 编写网络寻呼机 -VB资料 编制自已的电话录音小程序-VB资料 程序中如何启动默认的拨号连接-VB资料 打开浏览器并进入指定网址-VB资料 得到用户的IP地址 -VB资料 电话拨号 -VB资料 电子邮件的标准格式 (RFC 822)-VB资料 断开拨号网络的连接-VB资料 断开与 Internet 的连接 -VB资料 发送电子邮件附件-VB资料 VB获得用户网络登录名 基 于Win95 的VB5 串 口 通 信 程 序 基于Win95的VB5串口通信程序 检测运程数据传送的断线-VB资料 简单电子邮件发送程序-VB资料 VB建立拨号联接 -VB资料 将所有窗口最小化-VB资料 VB利用IE控件访问Internet 我想利用asp中的FileSystemObject对象把一个已存在的文件改名,改成我希望的名字? 挺简单的程序运行错,请指点! 在修改vsflex控件内数据的时,输入汉字需要每次设定输入法,有没有好的办法 急求代码大全的英文电子书,哪位有的?在线等!! 小难题 在UNIX+ORACLE+C++环境下开发的程序员的工资问题 取消地址和工具栏? 诚心请教 工具栏上加下拉组合框的问题 FFDD 2.0 系统件开发规则 有MIS或ERP选型经验的朋友请点击,斑竹请务必帮助我! 系统件快速开发解决方案 —系统转系统件方案 关于paradox的字段设置 谁有jb7的注册码?能发给我吗? 我想让一个存储过程最大执行10秒,超时退出,怎么实现? 数据库连接问题 在delphi的paradox 7 的字段设置 单网卡如何帮定双IP? 这样都有?你们给我我的可用分增加了 不用hook,能不能把其他应用程序的关闭按钮或最小化最大化按钮屏蔽掉?? 如何把float转成CString 怎么把SQL SERVER2000 数据库中的表转成.dbf格式的表!谢谢 如何得到一个图形按钮的句柄啊?好郁闷!!! 关于setfilter()函数的问题 谁知道四川的高程考试什么时候报名?哪里? illegal character: \12288???什么是不合法的存在?? 关于wav格式的声音文件 com 、active控件,b/s,asp到底什么关系啊 C++高手请过来! 怎么切换分割后的视图类 软件工程师的职业生涯――从入门到精通 SOS(ACTIVEREPORT) 基于RichText的查找和替换函数??BCB自带的那个太滥了。(1--[查找]100分) 把float转为CString 基于RichText的查找和替换函数??BCB自带的那个太滥了。(2--[替换]100分) 谁有加密算法的程序!! Atl+asp+mapi 这种情况能不能连接SQL SERVER??? 帮忙 半個月了.還沒能找到解決方案,我想做數据庫的朋友都會碰到的問題.如何能在dataGrid中先显示一张有几十万条数据的表的一小部分,载入内存 我的SQL Sever 2000不能启动了。为什么。 我的SQL Sever 2000不能启动了。为什么。 求救:PB做出来的东西能否在WINDOWS2000下运行???? 请问如何实现在回退到指定的窗口 请问为什么会出现拨号连接正常,但IE却打不开网站网页 关于类模板的两个简单问题 千万别让MM看到你的QQ开着 [zz] 寻找高手(调用Flash动画) 还是字符集的问题,解决了只给100分(外加一顿饭) 初学者,有没有什么好书请推荐一下! to echome !!!!!!!!!!!!!!!!!请大家如果见到 echome 请奔走告诉他一声!!!!!!!!!!!!!!!!!!!!! 电源线橡胶皮脱落刚买了5天的笔记本,电源适配器的一根细线,橡胶皮脱落,能否更换适配器? 不足的碳酸氢钠与盐酸反应化学方程式 写玉兰花的作文,一千字左右 台灯怎么接电源线如图怎么接电线.这是两个灯泡的台灯,中间电板是开关,可以调节亮度的.外接电线,火线零线接哪里?左右两边的四根线子接到哪里?应该怎么接法呢, 如图所示,电阻R1=R2=R3=1.0,当电键K闭合时理想电压表读数是1.0V,当K断开时理想电压表读数是0.8V,求:电源的电动势E和内电阻r 求作文:感官描写玉兰花,柳树(共两篇)200字以下100字以上. 安装电灯的电线为什么外面有橡胶 一道初中物理浮力的题,有争议,快来!如图所示,放有铁块的杯子漂浮在容器中的水面上,如果把铁块取出,用细线悬挂在杯底,再放入水中时,杯子受到的浮力将______,水对容器底的压强将_______.( 电离常数的具体物理意义是什么? 描写心理活动的句子很短的40段 如图所示,设R1=R2=R3=R4=R,求开关K闭合和断开时,A,B两端电阻值比 电离常数表示什么意思啊? 少一点的关于夏天的好词好句好诗句 将一重为3N,体积为100立方厘米的石块,用细线系着浸没在装有水的圆柱形容器中,容器中水的深度由10cm上升到12cm.(容器的重力和容器壁的厚度不计,g取10N|kg)求:1.石块所受浮力 2.容器中水的 电离常数的定义及关于其的公式,定理 描写人物心理活动的句子,我受不了了!抄别人的句子就别回答!我真的受不了了!你们就总是互相抄,我不管看哪一个,都是一样的,你们真是.记住,我要的是心理描写的好句!别给我一些莫名其妙的 稀释浓的弱酸溶液,氢离子的浓度为什么先增大后减小? 森林气温有多少度? 仿写句子.例,如果名人是金字塔的尖顶,普通人则是塔身和地基.如果名人是?普通人则是?写两句 关于夏天的诗句 要全诗 作者和朝代 跪等 森林近来气温多少摄氏度? 如图7所示的电路中,R2的阻值为3Ω.闭合开关之后,电压表的示数为6Ⅴ,电流表的示数为1A,则R1=__ __Ω 我不懂得是 在闭合开关之后 电压表不是应该和电源以及R2并联吗? 怎么会测得是R1得电压~ 弱酸中加水为什么离子浓度减小?刚学不太懂 森林温度多少度? 移动电源盘为什么要使用橡胶材质的电缆求解答 问关于稀溶液的依数性 凝固点的下降我就奇怪 稀溶液比纯溶剂在同温度的蒸气压低`问题就来了`当凝固的固体的蒸气压等于溶液的蒸气压是`就凝固了``那么温度下降的过程中```稀溶液的蒸气 森林温度大概度? 哪种植物树皮可以提炼橡胶做电缆材料 植物油酸的检验报告上凝固点Y-8,Y-10, 我是这样学雷锋的 作文 电缆成本及橡胶电缆问题电缆成本以前我懂 忘了 貌似是铜价 *密度*...最后乘以1.1(人工电费等)用YJV3*50+1的来计算 、还有橡胶电缆1斤5的是什么意思?换算成平方怎么换算?以10平方举例 气温和风速有什么具体关系(数字关系) 森林这几天气温多少摄氏度? 描写秋天的古诗 含作者朝代 不能有错别字 要3—4首 英语翻译25变压器油(绝缘油的凝固点为-25℃的油)这句话请帮忙翻译成英语. 学雷锋的作文怎么写? 浓度不影响电离平衡常数为什么弱电解质的电离平衡常数与浓度(溶液的浓稀)无关? 稀醋酸加水稀释,电离程度越大.溶液ph减少. 3DMAX渲染玻璃材质,部分玻璃渲染后显示损坏的蓝色是什么原因?【 如图:两组玻璃用的都是同一种玻璃材质,灯光和模型都没有问题,最奇怪的是将左边显示正常的玻璃拷贝到右边墙体使用,还 关于冬天古诗 含作者朝代 不能有错别字 3—4首 欲使醋酸稀溶液的电离度和PH值同时降低,应采取的措施是硫酸氢钠晶体行吗? 学雷锋文章不是简介 用未知浓度的醋酸溶液求电离平衡常数现用某未知浓度的醋酸溶液及其他仪器,药品,通过实验测定一定温度下醋酸的电离平衡常数,需测定的数据有:1.实验时的温度2.__________3.用________(填一种 森林气候属于什么气候 结合语境解释下列加点词语.(1)仔细看时,才知那是每一朵紫花花中的最浅淡的部分,在和阳光互相挑逗(2)船搜鼓鼓的,又像一个忍俊不禁的笑容笑容:(3)花朵从来都稀落,东一穗西一串伶仃地挂在 浓度值及减小为原来的0.1 浓度之和 电离平衡常数10倍常温下将0.1mol/L的醋酸溶液加水稀释至原体积10倍 则醋酸根离子与氢离子浓度之积减小为原来的0.1醋酸与醋酸根离子的浓度之和减小为原 森林为什么能调节气候? “结合语境解释加点词语的意思”对于这样的题要怎么解释? 这里的人真多啊,多的______________(把句子写具体) ,用树木、森林和气候的关系来比喻个人、集体与社会的“气候”的关系 结合语境,解释下列加点的词(1)从飞船上可以看到美丽的月球已经遥遥在望.遥遥再往:(2)他们又取出美国的星条旗,神色庄重地把它插在月亮上.神色庄重:(3)在茫茫太空,月亮是地球 如图,R2的阻值为3欧,闭合开关后,电压表的示数为6V,电流表的示数为1A.求:(1)R1的阻值是多少?(2)电源电压为多少V?(3)如果断开开关,电压的示数是多少V? 磨轮打火机碰水晒干后还能用吗?一般用什么油?没有油的状态下 硫酸铜溶液吸收硫化氢气体的离子方程式 泡沫灭火器为什么是用硫酸铝和碳酸氢钠,而不是用碳酸氢钠和盐酸 网上那个使水瞬间结冰的视频(盐、吸管、打火机那个)有谁做成功过吗?我是没成功,也不知道其中的原理. 请问,应如何写玉兰花的作文要很美 泡沫灭火器中盛装的碳酸氢钠溶液和硫酸铝溶液的位置能否互换? 谁试过将打火机在水里搞爆.那一瞬间水都结冰了!为什么? 求一篇写白兰花作文要写白兰花的茎·叶·花
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘