＋设为首页 ＋添加到收藏夹
如题
procedure TForm1.Button1Click(Sender: TObject);
const
crMycursor= 1;
begin
//往光标数组中添加资源,xxx.cur就是你知道的沙漏的名字，反正我不知道
Screen.Cursors[crMyCursor]:=LoadCursorFromFile(C:\WIN\Cursors\xxx.cur);
//更改当前屏幕光标
Screen.Cursor:=crMyCursor;
end;
Screen.Cursor:=crHourGlass;
变成沙漏：
screen.cursor:=crhourglass;
还原:
screen.cursor:=crdefault;
如上所说：你先的确定你要显示的光标图形在你的系统中已经注册，并且用LoadCursorFromFile能得到它，这个时候只要把它给Screen.Cursor这个全局变量就能显示它了
