ActiveDelphi

[oiselcroo]

BOA NOITE AS TODOS, ALGUEM PODE ME AJUDAR A FAZER ESTA FUNÇÃO FUNCIONAR NO ANDROID ?

DESDE JA AGRADEÇO A TODOS.

procedure TForm1.Button1Click(Sender: TObject);
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
else
ShowMessage('teste');
end;