我们经常可以看到许多生动有趣的动画鼠标其实利用Delphi强大的功能我们完全可以随心所欲地制作有个人特色的鼠标我制作了一个名为face的动画鼠标在常态时它是一张圆圆的脸脸上有一双咕噜噜乱转的大睛眼当按下左（右）键时脸的左（右）眼就眨一下如果持续按住则左（右）眼眨个不停下面我以这个动画鼠标为例简述如何制作动画鼠标
首先在Delphi的主菜单工具下选图像编辑器编辑一个名为faceres的资源文件它应该包括个人制作的五个cur文件faceleftcur（图为圆脸上一双向左看的眼睛）facerightcur（图为圆脸上一双向右看的眼睛）plainfacecur（图为圆脸上一双向前看的眼睛）leftshrinkcur(图为闭着左眼的圆脸）rightshrinkcur（图为闭着右眼的圆脸）
做好资源文件后打开一个新的窗体FORM并放置PopupMenu组件把FORM的属性PopupMenu置为PopupMenu然后在UNIT的INTERFACE段下加入以下代码
{$ R faceres}
并在TFormFormCreate事件内加入以下代码
screencursors[]:=LoadCursor(hInstance pChar(′lfaceleft′))
screencursors[]:=LoadCursor(hInstance pChar(′faceright′))
screencursors[]:=LoadCursor(hInstance pChar(′plainface′))
screencursors[]:=LoadCursor(hInstance pChar(′leftshrink′))
screencursors[]:=LoadCursor(hInstance pChar(′rightshrink′))
screencursor:=plainface;
在TFormFormClick事件内加入以下代码
screencursor:=faceleft;
screencursor:=plainface;
在TFormFormKeyDown事件内加入以下代码
if button=MbLeft then
begin
screencursor:=leftshrink;
screencursor:=plainface;
end;
if button=MbRight then
begin
screencursor:=rightshrink;
screencursor:=plainface;
end;
……
其余细节请读者补充做完一切运行它生成?exe文件OK!一个趣味动画鼠标就编制完成运行它你就可以看到一张生动幽默的圆脸了当然你还可以依你的喜好和想象来任意设计其他有趣的动画鼠标
