問一個簡單的問題

問一個簡單的問題 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;  
 

變了   迴圈體次數太少   沒變來的及就結束了