Ich weis nicht wie du deine Ausrichtung einstellst, womöglich über die System-Events.
Aber du könntest auch die aktuelle Einstellung abfragen:
Delphi-Quellcode:
function IsPortraitOrientation: Boolean;
var
FScreenService: IFMXScreenService;
begin
Result := true;
if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, FScreenService) then
Result := (FScreenService.GetScreenOrientation = TScreenOrientation.Portrait) or
(FScreenService.GetScreenOrientation = TScreenOrientation.InvertedPortrait);
end;
Rollo