GetScreenOrientation Delphi XE5 and Android

Question

i am using rad studio xe5 and i need to return the current screen orientation to the text property of a label on my form.

how can i get the value of TScreenOrientation();

thank you amit

Answer 1

You can do it like this:

uses
  FMX.Platform;
....
var
  ScreenService: IFMXScreenService;
....
ScreenService := TPlatformServices.Current.GetPlatformService(IFMXScreenService) 
  as IFMXScreenService;
Orientation := ScreenService.GetScreenOrientation;