问一个简单的问题

Question

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

Answer 1

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

Answer 2

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