• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

用Delphi编制趣味动画鼠标_Delphi

Delphi 搞代码 3年前 (2018-08-09) 122次浏览 已收录 0个评论

  我们经常可以看到许多生动有趣的动画鼠标,其实利用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,

http://www.gaodaima.com/?p=65802用Delphi编制趣味动画鼠标_Delphi

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

欢迎大家阅读《用Delphi编制趣味动画鼠标_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址