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

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

FireMonkey TScreen 没有 Cursor 属性，但全局 Platform 实例有一个 SetCursor 方法：

使用 FMX.Platform、System.UITypes；

... Platform.SetCursor(nil, crHourGlass); 尝试...最后 Platform.SetCursor(nil, crDefault); 结尾;

Answer 2

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

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

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

更新：TAniIndicator是要使用的组件

Answer 3

这适用于 XE3，在 XP 上运行的 FireMonkey2：

`Application.MainForm.Cursor:= crHourGlass;`