delphi - 有了Firemonkey，如何给用户反馈？ (沙漏)

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/SilverlightBusyIndicator.aspx

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

更新:TAniIndicator是要使用的组件