Ich habe das so gelöst. Du kannst ja mal probieren, ob das so etwa passt. Bei mir ist es Landscape. Das musst du dann entsprechend anpassen.
Delphi-Quellcode:
//wir lassen nur Landscape (Querformat) zu
Procedure SetScreenOrientation;
var
ScreenService: IFMXScreenService;
OrientSet: TScreenOrientations;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
begin
//Ausrichtung Bildschirm soll fest sein, damit sich nicht einfach der Bildschirm dreht, wenn jemand etwas bewegt
if BildschirmAusrichtung then begin
OrientSet := [TScreenOrientation.InvertedLandscape]; //Kabel links Nexus7
end
else begin
OrientSet := [TScreenOrientation.Landscape]; //Kabel rechts Nexus7
end;
ScreenService.SetSupportedScreenOrientations(OrientSet);
end;
end;