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

Question

我的Delphi XE2应用程序看起来有点陈旧，因为它们使用：

 Screen.Cursor := crHourglass;

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

除此Am I restricted to the cursor numbers defined in Controls.pas under Delphi 7?之外，我无法在SO或Google上找到解决此问题的任何内容。

Snake吃它的尾部光标预览：

Answer 1

不同的Windows方案有不同的游标。如果您使用的是其中一种Aero方案，则会看到您引用的游标。如果您正在使用Windows Classic，那么您将看到旧的XP风格游标。

Screen.Cursor := crHourglass;

只需显示当前活动方案的忙碌光标即可。

Answer 2

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