用Delphi编制趣味动画鼠标_Deiphi实例教程_Deiphi_编程开发

用Delphi编制趣味动画鼠标

日期：2008-10-20 22:10:46　　　　来源：

　·用Delphi 3.0编制MP3音乐点歌台　·Delphi中动画设计(2)
　·photoshop中制作逼真的鼠标-5

用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!一个趣味动画鼠标就编制完成，运行它你就可以看到一张生动幽默的圆脸了。当然，你还可以依你的喜好和想象来任意设计其他有趣的动画鼠标。　[1]

用Delphi编制趣味动画鼠标

Excel编制学生考勤管理系统

Delphi中动画设计

photoshop中制作逼真的鼠标-4

◎→	本类最新
在DELPHI中用线程排序在Delphi中使用Queued Component 作非常规程序菜单掌握delphi 执行一个外部程序并等待它的完成在应用程序中跟踪MOUSE的坐标五子棋源代码显示密码的原理

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
DELPHI中的消息处理机制(1) Delphi数据压缩处理(2) Delphi数据压缩处理(1) 简析Delphi中如何进行XML编程简析Delphi中如何进行XML编程(10 Delphi下的COM编程技术简介(2) Delphi下的COM编程技术简介(1)