delphi - 用新的 Windows 7“蛇吃尾巴”光标替换 crHourGlass

Question

这些天我的 Delphi XE2 应用程序看起来有点过时，因为它们使用：

 Screen.Cursor := crHourglass;

有没有办法将光标更改为 Windows 使用的更具现代感的旋转“蛇吃尾巴”图标？

除此之外，我是否仅限于 Delphi 7 下 Controls.pas 中定义的光标编号？我无法在 SO 或 Google 上找到解决此问题的任何内容。

蛇吃尾光标预览：

Answer 1

不同的 Windows 方案有不同的游标。如果您使用的是 Aero 方案之一，那么您将看到您所指的光标。例如，如果您使用的是 Windows Classic，那么您将看到较旧的 XP 样式光标。

Screen.Cursor := crHourglass;

是显示当前活动方案的忙碌光标所需要做的一切。

Answer 2

基本上 crHourGlass 是“忙碌”Windows 光标的“包装器”。您可以在系统“鼠标”控制面板中“手动”更改它：从您想要的模型配置您的“指针”设置。