GetScreenOrientation Delphi XE5和Android

Question

我正在使用rad studio xe5，我需要將當前屏幕方向返回到我的表單上的標籤的文本屬性。

我如何獲得TScreenOrientation（）的值;

謝謝阿米特

Answer 1

你可以這樣說：

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