为什么鼠标图标变不了？

Question

代码如下    
    
PointSetupFrm.Cursor:=crHourGlass;
PointSetupFrm.Enabled:=false;
WaitDlgFrm:=TWaitDlgFrm.Create(Self);
WaitDlgFrm.Show;
Exit;

Answer 1

to  wisenowa(127.0.0.1):为什么我的方法不行？？？

Answer 2

你的代码是 Form，不是应用程序的光标，所有在这个 Form 上的光标才有变化，而且在窗体上的控件上也不会改变。

Answer 3

Screen.Cursors[crMyCursor] := LoadCursor (hInstance,'CURSOR_1');
Cursor := crMyCursor;//指定 form1 的 cursor 为自订鼠标
Button1.Cursor := crMyCursor;//指定Button1的cursor为自订鼠标

Answer 4

screen.cursor:=crhourglass;
...
...
...
screen.cursor:=crdefault;

Answer 5

你的代码是改变窗体的光标，而当对话框窗体弹出时，焦点不在源窗体上，而是在对话框窗体上，所以光标没变。你应该改变Screen.Cursor.