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