首页 >> 读书频道 >> 电脑 >> 用Delphi编制趣味动画鼠标
 
· length 属性 (F
· lastIndex 属性
· isPrototypeO
· input 属性($_)
· Infinity 属性
· index 属性
· ignoreCase 属
· hasOwnProper
· global 属性
· description
· constructor
· caller 属性
 
· 红楼梦:120回全本[清
· 常见图像文件格式详解
· 拉封丹寓言
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

用Delphi编制趣味动画鼠标


查看有无更新版本

关键字:Delphi/Pascal 2006-9-22

 

用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;
……

 

用Delphi编制趣味动画鼠标

[ 1 ]
用Delphi编制趣味动画鼠标 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑