ios - Delphi での iPad の向きの検出

Question

OnRotateXE4 でイベントがあると思っていたのですが、OnResize使用されているようです。わかった。

ただし、デバイスの向きを特定する必要があります。単純だと思いますが、Google は役に立ちません。

Answer 1

高さと幅をチェックするのが方法のようです。h > w の場合はポートレイト、そうでない場合はランドスケープ。しかし、何かが組み込まれていないことに驚いています。

Answer 2

メイン フォームの OnResize イベントで関数を使用できます。

function TERMainForm.GetOrientation: TScreenOrientation; var
OrientationS: IFMXScreenService; TPlatformServices.Current.SupportsPlatformService
(IFMXScreenService, IInterface(OrientationS)) の場合に
開始し、Result := OrientationS.GetScreenOrientation;を開始します。
end
else raise Exception.Create('向きがサポートされていません'); 終わり;