【结帖】怎么显示漏斗鼠标状态？**

newjack

有的功能打开需要的时间较长，用IE或客户端访问时，点击打开一个功能时没有显示忙的等待状态。现在希望能在打开一个功能时先显示漏斗状，打开后恢复原状。我在功能窗体的show事件里先用
Forms.Screen.Cursor:=-11;
然后是业务代码，最后用
Forms.Screen.Cursor:=-0
可是测试时没有见到效果，还是没有显示漏斗状，单独测试Forms.Screen.Cursor:=-11; 确实又是可以显示漏斗状的。那么应该怎么做呢？

alang

语句执行肯定是有效果的
只是，楼主确认你的打开时间长是在
Forms.Screen.Cursor:=-11;
...
Forms.Screen.Cursor:=-0
中间吗？

如果时间长的操作不在这里，当然就不管用了

Akon

有二种方法，建议使用第二种方法:方法一：在业务功能里增加一个过程，代码如下：
procedure Dorun;override;

implementation

procedure TYWGN2.Dorun;
begin
     Business.Forms.Forms.Screen.Cursor := -11;
     inherited;
end;
在Form的onshow事件，代码如下
   Business.Forms.Forms.Screen.Cursor := -0;

方法二：在窗体上添加一个TTime控件，在TTime控件中的onTimer事件中写如下代码：
Timer1.Enabled := False;
  Forms.Screen.Cursor:=-11;
  SysUtils.Sleep(20000);   //写要执行的代码，执行完之后再去变回鼠标
  Forms.Screen.Cursor:=0;
在Form的onshow事件，代码如下
Timer1.Enabled := True;

Akon

楼主，使用之后请反馈。

newjack

用time控件去估算sleep的时间？SysUtils.Sleep(20000);   //写要执行的代码，执行完之后再去变回鼠标，那我每台客户机性能不一样，执行起来有快有慢，岂不是估算的sleep值不够准确？

Akon

那里面的sleep只是我自己随便写的一个，不需要去估计，我想表达的意思是指你在  Forms.Screen.Cursor:=-11和Forms.Screen.Cursor:=0;之间写需要处理的事件。

lixy

楼主请回馈

jiahaiminghr

由于长时间没有反馈，先结帖了。
有问题请开新帖