Setting The Mouse Cursor In Delphi XE5 And XE6

In the video he demonstrates how to acquire the IFMXCursorService interface from the TPlatformServices object which is contained in the FMX.Platforms 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:

Code:

var
CS: IFMXCursorService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXCursorService) then
begin
CS := TPlatformServices.Current.GetPlatformService(IFMXCursorService) as IFMXCursorService;
end;
if Assigned(CS) then
begin
Cursor := CS.GetCursor;
CS.SetCursor(crHourGlass);

// do some example work and then return the cursor to normal
try
Sleep(2000);
finally
CS.SetCursor(Cursor);
end;

end;

[youtube]cMNHu3aOEqY[/youtube]