delphi - crHourGlass を新しい Windows 7 の「尻尾を食べるヘビ」カーソルに置き換えます

Question

私の Delphi XE2 アプリは、以下を使用しているため、最近は少し時代遅れに見えます。

 Screen.Cursor := crHourglass;

カーソルを、Windows が使用するよりモダンな回転する「尾を食べる蛇」アイコンに変更する方法はありますか?

これ以外Delphi 7 の Controls.pas で定義されているカーソル番号に制限されていますか? SO または Google でこれに対処するものを見つけることができませんでした。

しっぽを食べるヘビ カーソルのプレビュー:

Answer 1

Windows スキームが異なれば、カーソルも異なります。Aero スキームのいずれかを使用している場合は、参照先のカーソルが表示されます。たとえば、Windows クラシックを使用している場合は、古い XP スタイルのカーソルが表示されます。

Screen.Cursor := crHourglass;

現在アクティブなスキームのビジー カーソルを表示するために必要なことはこれだけです。