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