问一个简单的问题

初学delphi  
  需要时间不明确的情况下(循环体次数不定)，怎么用一个动画来让用户知道程序还在执行  
  具体用什么控件，代码如何写呢   谢谢  
 

sf

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

代码怎么写呢？？

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

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

Cursor   :=   crHourGlass;

我试了下   没有变啊

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

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

[新闻]硅谷VC过冬：屯现金 广节流 慎投资
博客园首页 社区 新闻频道 小组 博问 网摘 闪存