摘要载入中…    请稍等…












内容载入中…    请稍等…

如长时间看不到内容,请关闭浏览器,重新打开此页!

芯友首页 应用软件 编程开发 网络硬件 资源下载 动漫音乐 精美图库 芯友论坛 视频教程 电脑技术QQ群:72845454
 ★★photoshop学友-史上最强播放器★★
 位置:编程开发>Deiphi>Deiphi实例教程
◎→ 本类最新
在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)

用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]

Excel编制学生考勤管理系统

Delphi中动画设计

photoshop中制作逼真的鼠标-4

--->Flash Movie Player V3.4┊浏览Flash动画、捕获Flash图像工具┊英文绿色特别版
--->鼠标打字III V1.2.6
--->鼠标打字·高级版II V1.2.6
--->英语八哥--动画学音标 V2.0
--->小baby英语动画字典 V1.0
Tags:  编制 动画 鼠标

芯友网版权所有 1999-2006 | 著作权与商标声明 | 法律声明 | 服务条款 | 隐私声明 | 联系我们