Hallo Leute..
Beim Start meiner app ist Landscape/Portrait möglich ..
Ich fixiere den Bildschirm
bei einer speziellen Funktion:
Delphi-Quellcode:
ScreenService: IFMXScreenService;
OrientSet: TScreenOrientations;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
begin
OrientSet := [TScreenOrientation.Landscape];
ScreenService.SetScreenOrientation(OrientSet);
end;
Wie kann ich den "automatischen Modus" danach wieder aktivieren... weil wenn ich das einmal aufrufe bleibt das dann ...
es gibt leider kein [TScreenOrientation.DeviceOrientation];
Danke für Hinweise
Erich
Berlin 10.1 inkl Mobile
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \