[FMX] Ändern der FormOrientation per Code

[Rollo62]

Hallo Darlo,

versuch mal das

Delphi-Quellcode:

// Sets the possible Screen orientations  (Portrait, Landscape, InvertedPortrait, InvertedLandscape);
procedure Form_Orientation_Set2(const orientSet : TScreenOrientations );
var
  ScreenService: IFMXScreenService;

begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
  begin
    ScreenService.SetScreenOrientation(orientSet);
  end;
end;

Bin mir nicht mehr sicher obs auch eine Drehung des Gerätes erwartet.

Rollo