画面を縦に固定する (FireMonkey)
以下のコードを記載することにより画面を縦に固定できます。RAD Studio 10 Seattle + iPhone 6 で確認しました。
procedure TForm1.FormCreate(Sender: TObject); begin // 画面を縦に固定 Application.FormFactor.Orientations := [TFormOrientation.Portrait, TFormOrientation.InvertedPortrait]; end;