问一个简单的问题

问一个简单的问题 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061225100617124.html
初学delphi  
  需要时间不明确的情况下(循环体次数不定)，怎么用一个动画来让用户知道程序还在执行  
  具体用什么控件，代码如何写呢   谢谢  
 

sf

你可以在循环开始之前将光标设置成漏斗状，然后在结束时恢复原来的箭头状！

代码怎么写呢？？

显示一个非模态对话框，使用TAnimate控件，设置其CommonAVI或者FileName属性可播放动画。

我想问一下鼠标那个怎么写

Cursor   :=   crHourGlass;

我试了下   没有变啊

谁说不能变？  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      if   Cursor   =   crHourGlass   then  
          Cursor   :=   crDefault  
      else  
          Cursor   :=   crHourGlass;  
  end;  
 

变了   循环体次数太少   没变来的及就结束了

转载于:https://www.cnblogs.com/delphi2007/archive/2008/10/20/1314892.html