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

用Delphi编制趣味动画鼠标

HTML文档下载 WORD文档下载 PDF文档下载
用Delphi编制趣味动画鼠标

我们经常可以看到许多生动有趣的动画鼠标,其实利用Delphi强大的功能,我们完全可以随心所欲地制作有个人特色的鼠标。我制作了一个名为face的动画鼠标,在常态时,它是一张圆圆的脸,脸上有一双咕噜噜乱转的大睛眼。当按下左(右)键时,脸的左(右)眼就眨一下。如果持续按住,则左(右)眼眨个不停。下面我以这个动画鼠标为例,简述如何制作动画鼠标。

首先,在Delphi的主菜单工具下选图像编辑器,编辑一个名为face.res的资源文件,它应该包括个人制作的五个.cur文件:faceleft.cur(图为:圆脸上一双向左看的眼睛),faceright.cur(图为:圆脸上一双向右看的眼睛),plainface.cur(图为:圆脸上一双向前看的眼睛),leftshrink.cur(图为:闭着左眼的圆脸),rightshrink.cur(图为:闭着右眼的圆脸)。

做好资源文件后,打开一个新的窗体FORM1并放置PopupMenu组件,把FORM1的属性PopupMenu置为PopupMenu1。然后在UNIT1的INTERFACE段下加入以下代码:

{$ R face.res}

并在TForm1.FormCreate事件内加入以下代码:

screen.cursors[1]:=LoadCursor(hInstance

pChar(′lfaceleft′));

screen.cursors[2]:=LoadCursor(hInstance

pChar(′faceright′));

screen.cursors[3]:=LoadCursor(hInstance

pChar(′plainface′));

screen.cursors[4]:=LoadCursor(hInstance

pChar(′leftshrink′));

screen.cursors[5]:=LoadCursor(hInstance

pChar(′rightshrink′));

screen.cursor:=plainface;

在TForm1.FormClick事件内加入以下代码:

screen.cursor:=faceleft;

screen.cursor:=plainface;

在TForm1.FormKeyDown事件内加入以下代码:

if button=MbLeft then

begin

screen.cursor:=leftshrink;

screen.cursor:=plainface;

end;

if button=MbRight then

begin

screen.cursor:=rightshrink;

screen.cursor:=plainface;

end;

……

其余细节,请读者补充。做完一切,运行它,生成?exe文件,OK!一个趣味动画鼠标就编制完成,运行它你就可以看到一张生动幽默的圆脸了。当然,你还可以依你的喜好和想象来任意设计其他有趣的动画鼠标。

销售额达一万亿元 阿里巴巴成世界最大电商 共享软件海外营销策略与实战分析(武汉站)成功落幕 你未必知道的CSS故事:揭开leading的面纱 2013年 影响Web发展的5类API 《Warcraft是怎样炼成的》:多人对战、战争迷雾以及AI 菜鸟求教!!!! 关于VB数据库问题!!超急!!!!谢谢各位前辈 求一SQL语句写法 谁能该我Rose2002的下在地址,我找过好多都不能下载,谢谢!!! 请问如何用程序定时重起电脑? 我的IE首页被一个网站改了。 help me !how to install eclipse on red hat8.0? 提问高手:如何改变ListView中行的高度??? 鸡毛信:这个SQL查询怎么写 语文书上的第四课 记金华的双龙洞 课后第四题怎么写 一摩尔硫酸约含m个硫酸分子,一摩尔硫酸中约含2m个 记金华的双龙洞题目怎么用一个词来形容金华的双龙洞? 硫酸根离子,硫酸根原子团和硫酸分子的区别好的再加5 一摩尔硫酸完全电离时,可以生成多少摩尔的H离子,多 普通的做饭一个月能用多少立方煤气? 寸和厘米怎么换算 记金华的双龙洞课后题3.4答案六年级,苏教版 《记金华的双龙洞》的课后习题(18:00前解决)四 福岛核电站排水沟雨水辐射量激增 创下美警方误将中国灯笼当手榴弹致地铁站关“中国动力”吸引辛格访华中国与中东欧青年政治家论坛在京开幕沪指重挫1.25% 大消费普跌银行独召金财道5.16沥青原油、铜银晚评 非洲古国遭遇最大袭击事件阻碍石油生产别放过这碗汤!99%广东人都爱喝的老深夜谜图:魅族李楠发文或暗示新产品赖国光受邀广州东风日产讲授投资理财的皇图三国战天至尊传金庸群芳谱我与自家萝莉的未来生活附身高手东门旅游台北总统府旅游台北自由广场旅游圆山大饭店旅游师大夜市旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘