Get access to over 100 FireMonkey cross platform samples for Android, IOS, OSX, Windows, and Linux!

AndroidAppmethodCode SnippetDelphiDemoFiremonkeyOSXWindows

Setting The Mouse Cursor In Delphi XE5 And XE6 Firemonkey On Windows And OSX

| Delphi 11 10 XE8 XE7 XE Seattle Berlin Tokyo Rio Firemonkey Delphi Android Delphi IOS

Delphi XE5 Firemonkey Mouse Cursors | Delphi 11 10 XE8 XE7 XE Seattle Berlin Tokyo Rio Firemonkey Delphi Android Delphi IOSAlister Christie from has a video up where he demonstrates changing the mouse cursor to the hourglass (or spinner) in Delphi XE5 Firemonkey. is a great resource of over 100 different videos (both free and paid) demonstrating how do to various things in Delphi. Obviously since most mobile devices don’t have cursors this example applies to Windows and OSX. This code should work in AppMethod and Delphi XE6 as well. This is his most recent video about Delphi Firemonkey. In the video he demonstrates how to acquire the IFMXCursorService interface from the TPlatformServices object which is contained in the FMX.Platform class. If you’ve ever done this in the Delphi VCL side of things the code will look familiar in that you set the cursor to crHourGlass and restore it back to it’s original state afterward. Sleep() is used in the example where you would have your real code that did work instead so that you can see the hourglass cursor in action. Finally farther into the he moved the code out into it’s own class called SmartCursor. Here is a sample of the code from the video:
CS: IFMXCursorService;
if TPlatformServices.Current.SupportsPlatformService(IFMXCursorService) then
CS := TPlatformServices.Current.GetPlatformService(IFMXCursorService) as IFMXCursorService;
if Assigned(CS) then
Cursor := CS.GetCursor;

// do some example work and then return the cursor to normal

Head over and watch the full video about setting the mouse cursor in Delphi Firemonkey.

Have Delphi Firemonkey questions? Ask and get answers on StackOverflow.

Related posts

AutoBlogAI: FireMonkey Client To Leverage LLMs And Generative AI For Blogging


Unleashing Creativity With Song Writer AI: A Deep Dive


How To Build Stable Diffusion Text To Image Prompts


FireMonkey 10.4.2 Features Updated iOS 14, Android 11, And macOS 11 Support Plus Hundreds Of Fixes

Sign up for our Newsletter and
stay informed


Leave a Reply