首先用Image Editor在程序的资源文件(Resource)中创建一个Cursor,命名为"MYCURSOR"(注意:名称必须是大写)。程序中声明一个大于1的整数常量crMyCursor。 在程序中加入代码 Screen.Cursors[crMyCursor] := LoadCursor(hInstance,'MYCURSOR'); 以后就可以用 Cursor := crMyCursor; 显示自定义光标了。