关于鼠标图标的问题！

[tibet]

如何在运行一段程序的时候改变鼠标的指针！

[Axiong]

screen.cursor:=

[Limu]

You can also use Cursor:=

[twoy2000]

利用API函数setcursor(0,loadcurosr(参数)).具体内容请参见Win32 SDK

[zsr]

如果是要使用系统已定义的光标，可用 控件.cursor:=已定义光标名；
如果是使用自定义的光标，可用以下方法：
1)制作好光标；
2）调入光标：
const
cymycursor = 2;(必须大于0)
screen.cursors[crmycursor]:= loadicon()或Loadcursorfromfile;
控件.cursor:=crmycursor;