使用Firemonkey,如何向用户提供反馈？(crHourglass)

Question

通常,当我有一个需要一些时间的任务时,我使用这样的脚本:

procedure Work;
var
  cPrevious: TCursor;
begin
  cPrevious     := Screen.Cursor;
  Screen.Cursor := crHourGlass;

  try    
  // the task

  finally    
    Screen.Cursor := cPrevious;
  end;
end;

使用FireMonkey,Screen没有属性:Cursor.

向用户提供反馈的最佳方式是什么？

---

---

我跟着的评论和答案...用TPanel具有较少的不透明度和TAniIndicator(我也模糊了其他组件):

谢谢!

Answer 1

就像 @mjn 指出的那样，玻璃小时光标不再是您可以使用的唯一等待模式。

例如，在Silverlight/WPF中，您可以使用忙碌指示器控件， http://www.codeproject.com/KB/silverlight/SilverlightBusyIndi​​cator.aspx

所以你可以尝试在 FireMonkey 中做类似的事情。可能已经有类似的控件供您使用，或者您可以编写自己的控件。

更新：TAniIndicator是要使用的组件