知识大全用Delphi编制趣味动画鼠标

Posted 2022-07-22 圆脸

篇首语：贵有恒，何必三更起、五更眠、最无益，只怕一日曝、十日寒。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi编制趣味动画鼠标相关的知识，希望对你有一定的参考价值。

用Delphi编制趣味动画鼠标 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

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

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

　　$ R face res

　　并在TForm FormCreate事件内加入以下代码

　　screen cursors[ ]:=LoadCursor(hInstance pChar(′lfaceleft′)) 　　screen cursors[ ]:=LoadCursor(hInstance pChar(′faceright′)) 　　screen cursors[ ]:=LoadCursor(hInstance pChar(′plainface′)) 　　screen cursors[ ]:=LoadCursor(hInstance pChar(′leftshrink′)) 　　screen cursors[ ]:=LoadCursor(hInstance pChar(′rightshrink′)) 　　screen cursor:=plainface;

　　在TForm FormClick事件内加入以下代码

　　screen cursor:=faceleft;　　screen cursor:=plainface;

　　在TForm 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;　　……

cha138/Article/program/Delphi/201311/8490

知识大全 用Delphi编制趣味动画鼠标

知识大全用Delphi编制趣味动画鼠标