来点花的！做一个动画鼠标
首先，在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;
……
