Hallo Leute..

Beim Start meiner app ist Landscape/Portrait möglich ..

Ich fixiere den Bildschirm bei einer speziellen Funktion:

zusammenfalten · markieren

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

Setzt mam mit OrientSet := [Landscape] wirklich die aktuelle Ausrichtung, oder sagt man nicht eher, dass nur diese Ausrichtung erlaubt ist?

OrientSet := [Portrait, Landscape, InvertedPortrait, InvertedLandscape]; erlaubt somit Alles.

Schau mal hier: http://www.delphipraxis.net/192894-[...-per-code.html