Обнаружение ориентации iPad в Delphi

Question

Я бы подумал, что в XE4 будет событие OnRotate, но оказывается, что используется OnResize. Понял.

Однако мне нужно определить, какая ориентация устройства. Я уверен, что это просто, но Google не может помочь!

Answer 1

Для определения текущей ориентации устройства вы можете использовать метод statusBarOrientation, который является частью класса UIApplication.

Попробуйте этот образец

uses 
    iOSapi.UIKit; 

function SharedApplication:UIApplication; 
begin 
    Result:=TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication); 
end; 

procedure TForm23.Button1Click(Sender: TObject); 
var 
    LOrientation: Cardinal; 
begin 
    LOrientation := SharedApplication.statusBarOrientation; 
    if (LOrientation = UIDeviceOrientationLandscapeLeft) or (LOrientation = UIDeviceOrientationLandscapeRight) then 
    ShowMessage('Landscape') 
    else 
    if (LOrientation = UIInterfaceOrientationPortrait) then 
    ShowMessage('Portrait'); 
end; 

Answer 2

Кажется, что проверка высоты и ширины - это путь. Если h> w, то potrait, иначе пейзаж. Удивительно, что в этом нет ничего.

Answer 3

Вы можете использовать свою функцию на OnResize случае основной формы.

функция TERMainForm.GetOrientation: TScreenOrientation; var
Ориентация: IFMXScreenService; начинают
, если TPlatformServices.Current.SupportsPlatformService (IFMXScreenService, IInterface (ориентации)), то
начинают Результат: = OrientationS.GetScreenOrientation;
конец
еще raise Exception.Create ('Ориентация не поддерживается'); конец;