能不能让那讨厌的“漏斗”不出现？

Question

特定时间内指定     
Form1.Cursor := crNone;
使其消失，过后再改成crDefault 或其它值

Answer 1

骗一下Delphi吧，来个赋值：
crHourGlass = crDefault;

Answer 2

试试这两句
screen.Cursor := crhourglass;//把光标变成标准的漏斗
screen.cursor := crarrow;//恢复

Answer 3

前面写错了，应该是
Screen.Cursors[crHourGlass] := Screen.Cursors[crDefault];

Answer 4

不好意思，我试过可以。我是放在dpr文件中的，你也可以依样画葫芦。program Project5;uses
  Forms,
  Controls,
  Unit5 in 'Unit5.pas' {Form1};{$R *.RES}begin
  Application.Initialize;
  Screen.Cursors[crHourGlass] := Screen.Cursors[crDefault];
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 5

找到操作的Session设置其 Session.SQLHourGlass:=False就不会出现漏斗

Answer 6

还是老李飞刀的办法行，谢谢。checky的办法只能去掉Windows本身的等待沙漏，而不是Delphi的。大家辛苦了，都有分。