GetScreenOrientation Delphi XE5 и Android

Question

Я использую рад-студию xe5, и мне нужно вернуть текущую ориентацию экрана в свойство текста метки на моей форме.

Как я могу получить значение TScreenOrientation();

спасибо Amit

Answer 1

Вы можете сделать это следующим образом:

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