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

用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中运行通过。

亲爱的苹果,能不能别让应用太廉价? 陈晓影:一位女海归曲折的拓荒故事 IDG李丰:在中国,创业公司最好是一个One Man Company Google Drive新增“保存到Drive”按钮功能 可自行添加 腾讯CDC创始人唐沐加盟小米 总经理陈妍接任 老板我想辞职:因为小米100万元征集一张壁纸 移动周报:GitHub上最火的Android开源项目 免费才是王道:盘点开发者须知的25个免费数据可视化工具 Pivotal获通用电气1.05亿美元支持 或将改变大数据和物联网的游戏规则 大掌门与阿里云和解:云生态系统呼之欲出 刘有涛:恩信科技云计算大潮中扬帆起航 Cloudera释放Impala 1.0:与Hadoop完全整合,各方面完爆Hive 云通讯平台:让你的应用会说话 触宝用户过亿,CEO王佳梁常说的词是“创新” 全国电脑健康日启动 360搭建电脑维修开放平台 C语言实现归并排序 360石晓虹:针对移动Apps的DDoS攻击将成重大威胁 更社交化:谷歌将推出Google Play平台服务 C语言对磁盘文件进行快速排序 传Google已关闭短信搜索服务 PayPal首席安全官:靠密码验证身份即将寿终正寝 DRM你又赢了:其API纳入HTML5标准 豌豆荚王俊煜:洗白白其实是一个计划外的产物 抢Google等巨头生意,纽约大学小伙挖掘并出售自己数据 noBackend:前端优先的开发模式 C、CPP const 详解 三星5G技术获得突破性进展 未来传输速度可达10Gbps 5月14日:1984年美国社交网站Facebook创办人Mark Zuckerberg出生 Chartkick:一行代码即可绘制出漂亮的图表 用友UAP将打造开放平台 建应用商店销售企业级应用 共享软件营销:如何将你的产品推向海外 问一个问题!爱好or 程序员? 用VB如何设计好的报表,欢迎讨论! messagedlg能不能显示中文?例如显示“确定”,而不是“ok” 各位高手!!请教一个有关在oracle8i中建立表与表之间的关系? 请问哪里有无时间期限的Setup Factory 下载? 笨呆呆,拿分。 请问到那里可以下载uml工具,如果再有推荐的话是一定可以得分的 再次有请: playyuer 吴文智、袁飞、Jneu、Amoon、ttyp、icevi、progame、Jinesc 等各路高手 偶是初学者,问一个问题 SOS,很严重windows的问题,高手快进 复制Access数据库时出现的问题 如何动态添加TQuery的字段??? 编译一问 SOS,很严重windows的问题,高手快进 !!! 有人开发过基于winpcap的网络抓包程序么? SOS,很严重windows的问题,高手快进 ! 通过双网卡上网怎么设置? 一名初学者的问题? 各位老大,如何控制windows的资源管理器显示/不显示后缀名 问一下现在4000元可以买到大概什么配置的笔记本电脑 谁知道用VC++直接操作硬盘?告诉我一声,多谢了 请问考OCP的12本宝典在哪里下载?有人能介绍介绍经验吗?谢谢! Nobody can help me? 去考MCSD我合格吗? 怎样让程序自动修改IE中htm文件? !!!andyting!!!!过来拿分!!!!!! 请问各位大陆市场有没有<>? 请问学习vb有什么好书吗?请高手们帮帮忙,推荐几本好书?谢了!~ 谁知道生成随机数的算法 ListView问题 急急急急急急急急急急急急急急急急急急!!!! 如何向Access数据库中加入图片并从数据库中读出显示? 急,请问如何查询多个表(这些表有公共字段)查询结果按公共字段生成输出表单 请问关于利用JSP转换成HTML格式的问题 格了C:... 我装了Xteam linux kernel版本为:2.4.2,可是启动的时候屏幕上竟是0101010101010101,但用引导盘启动就可以的. 请高手们指点 "afx"是什么意思? 钩子函数里:GETMESSAGE????hook问题 大家帮帮忙!!我用vc中的Win32 console application调试c++程序时,输出的结果总是看不到,一出来就不见了啊!怎么办啊????急!!!!! 请教高手TDataSource的问题????????????????????????????????? TShockWaveFlash控件怎么样在播放时屏蔽其右键?另外怎么样让它在播放时单击鼠标让其播放结束?( Delphi版中没人回答 ,到这儿来试试) 谁有pb6.5的源代码,偶初学pb,想参考一下,最好是access或sql的,偶愿意送300分/个 LPWSTR-CString的相互转化? SQL语句问题,请指教。 我算不算“蓝领”? unix下面怎么实现多线程?可不可以发个例子给我?我的邮箱是caochao@powerise.com.cn 如何将数组中的一个元素附以二进的值 又来送分了! 请问用水晶报表设计报表的VB程序,安装时是不是一定要装水晶报表,如果不,安装应该怎么办? ListView问题:怎样在程序中自动选择LISTVIEW控件的某项或某些项? 名家好段摘抄要摘抄,一定要成段的! 英语题膜拜大神们 ★粗盐提纯★实验报告★名称 目的(?) 器材 现象(真奇怪 这个有吗) 结论(?)问题与讨论(问题为“提纯后的粗盐就是纯净的NaCl吗 还有什么成分 如何除杂质”)关键是 目的 现象 结论 求优美的文章,像《紫藤萝瀑布》这样优美的文章 膜拜各路英语大神 粗盐提纯的实验报告,写出实验器材,实验过程和实验目的 食物的酸碱性如何区分,各分类如何? 名人读书的故事,用来摘抄的.急用,作业,不然,玩完. 英语翻译Every Saturday night Mama would sit down by the table and count out the money Papa had brought home.Mama would carefully divide big groups for the housing,and food,and one or two coins for Nels or me -Katrin to buy notebooks.With breathle 从KNO3和NaCl混合物,提纯KNO3,可能的操作?1,加热蒸发2,冷却3,结晶4,过滤5,层析其中哪几个是要的! 求名家作文用来摘记找一些名家的作文越多越好可以是北岛 老舍等等 作文字数不要太多通俗易懂 玻璃棒在配制一定浓度的氯化钠溶液与粗盐提纯的实验中所起的作用有什么不同? 如何有效的预习语文,英语,数学,政治,历史,物理,化学? 如何提纯氯化钠中混有的硝酸钾 膜拜各位大神先,求几首好听的英文歌 ~ ~ ~ 高中化学溶液酸碱性练习常温下PH=12的溶液,水电离的OH-浓度是多少? 摘抄美文 带文章的题目和作者的名字. c选项为什么错 高中化学盐溶液酸碱性判断谁能告诉我基本判断酸碱性所 涉及的 阴阳离子和一些根所显的酸碱性(就是显:强酸 弱酸 强碱 弱碱 这样) 高中语文名著摘抄5句 体育考了 D 其他是 英语B B B 综合素质A我是寒亭的 【高中化学】酸碱性判断在由水电离产生H+浓度为1*10^-13次方mol/L 的溶液中,为什么既可以是强碱溶液,也可以是强酸溶液? 提纯混有少量氯化钠的硝酸钾固体 C选项怎么错了? 常温下,将0.1mol/L氢氧化钠溶液与0.06mol/L硫酸溶液等体积混合,该混合溶液的pH等于多少? 提纯硝酸钾中混有少量氯化钠是将谁提出来 A,C选项怎么错了抗甲型H1N1流感的有效药物“达菲”可用莽草酸(化学式C7H10O5)制取.有关莽草酸的说法中正确是 A.该物质是由22个原子构成的 B.其中氢元素的质量分数最大C.氢、氧元素的 水的电离和溶液的酸碱性 向纯水中加入酸或碱 水电离出的H+与OH-的量如何变化?酸碱里举一例说明即可. 下列有关电解质溶液中微粒的物质的量浓度关系正确的是D.常温下,CH3COONa和CH3COOH混合溶液[pH=7,c(Na+)=0.1mol·L-1]:c(Na+)= c(CH3COO-)> c(CH3COOH)> c(H+)= c(OH-) C选项怎么错了,为什么 硝酸钾中含有少量氯化钠的提纯方法 高中化学 选项B为什么是错误的. 粗盐中含有MgCl2和CaCl2而带苦味和涩味.请你设计方案,尽量少地损失NaCl而使粗盐得到提纯. 已知KNO3中混有少量的NaCl 提纯的步骤是加水溶解 蒸发浓缩 降温结晶 过滤 洗涤 干燥蒸发浓缩和降温结晶什么意思啊 谁教下 高中化学,A为什么不对?为了探究常见金属单质M与盐溶液的反应,某同学进行了下列实验,实验过程及现象如图所示,结合实验现象判断,该同学得出的下列结论中正确的是( )A,加入的金属M不 粗盐提纯NaCl的流程是什么 提纯混有NaCl的KNO3的方法具体操作是怎么样的? 高纯度单晶硅做计算机芯片是因为其有良好导电性 粗盐提纯后氯化钠质量有没有减少 高中化学,答案是C,求解析,感谢! 求又能当高中语文摘抄又好看的小说 第五题第六题的化学式 答案是c,不懂为什么,高中化学 关于初中化学实验——粗盐提纯(疑问现象)今天在化学实验室做提纯实验,第一次失败了.我在操作几个步骤中,都是严格按照初中教材书上所说,溶解、过滤、蒸发、称量.可是在蒸发步骤时, 若检测到牛奶中的氮元素的质量分数≥0.46%,即为蛋白质含量检测合格.某种不合格牛奶中氮元素的质量分数为0.36%,若向1000g该牛奶中加入2g三聚氰胺,请计算此时牛奶中氮元素的质量分数.我 将0.2mol氧化锰和50ml 12mol/L盐酸混合后缓缓加热,反应完全后向留下的溶液中加入足量硝酸银溶液,生成的氯化银沉淀物质的量为(不考虑盐酸的挥发)A 等于0.3molB 小于0.3molC 大于0.3mol,小于0.6molD 提纯粗盐的步骤和实验现象,结论, 初三化学求物质化学式试题解析 提纯含有少量硝酸钾的氯化钠固体rt 高一粗盐的提纯实验设计方案 要求是表格形式 步骤、现象、结论、化学方程式.表格形式表格内容有步骤、现象、结论、化学方程式 化学式练习题 (9 20:46:24)1.某金属的硝酸盐的式量为m,该金属相同价态的氯化物的式量为n,则该金属元素的化合价数值是多少?2.某有机化合物6g,在空气中完全燃烧后生成8.8gCO2和3g水,若该化合物 而要从含有少量氯化钠的硝酸钾溶液中提纯硝酸钾,一般采用什么? 粗盐提纯的步骤和现象rt 第4题和第6题. 当硝酸钾中含有少量氯化钠时,可用 法提纯硝酸钾 C,D选项求解释 如何写化学粗盐提纯的实验报告? 求名家美文摘抄!大约四段就够了,要有感受和评论,要写明出处………………火速! 求说明C选项正确的原因 粗盐提纯实验报告要详细一点的,其内容包括:1.实验目的2.实验仪器和药品3.实验步骤(现象)4.实验结果5.问题与讨论(误差分析)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn