Android BackButton..

[Rollo62]

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

[erich.wanker]

Hallo Rollo62

ich hab in OnResize folgendes:

login und login2 sind TabSheets mit angepassten Buttons für den Loginbereich - horizontal/vertikal
menu und menu2 sind TabSheets mit angepassten Buttons für das Hauptmenü - horizontal/vertikal

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
var
  ScreenService: IFMXScreenService;
begin

  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
  begin
    if ScreenService.GetScreenOrientation in [TScreenOrientation.soPortrait, TScreenOrientation.soInvertedPortrait] then
    Begin
        if maincontrol.ActiveTab=menu2 then maincontrol.ActiveTab:=menu;
        if maincontrol.ActiveTab=login2 then maincontrol.ActiveTab:=login;
        ausrichtung:='hoch';
    End

  else

     begin
        if maincontrol.ActiveTab=menu then maincontrol.ActiveTab:=menu2;
        if maincontrol.ActiveTab=login then maincontrol.ActiveTab:=login2;
        ausrichtung:='quer';
    end;


  end;

end;

[Rollo62]

Man muss sich nicht auf OnResize verlassen, da gab es zumindest bei mir mal Probleme mit.
Auf den mobilen Platformen gibt es die Orientation-Events, die funktionieren bisher sehr gut.

Ist nur etwas lästig die immer zuzuordnen ...

Delphi-Quellcode:

procedure TS4View_Manager.OrientationChange_Subscribe;
begin

  // Register the Message handler
  //Subscribe to orientation change events in OnCreate or similar
  //
  FOrientationChangedId := TMessageManager.DefaultManager.SubscribeToMessage(
           TOrientationChangedMessage,
           EvOnOrientationChanged
         );

end;

Delphi-Quellcode:

procedure TS4View_Manager.EvOnOrientationChanged(const Sender: TObject;
   const Msg: TMessage);
var
  cmd :  TS4Api_SysEvents; 
  screenService : IFMXScreenService;

begin
  cmd := TS4Api_SysEvents.TApi.None;

  //
  // Evaluate the OrientationChange Event first
  //
  if Msg <> nil then
  begin

    if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService,
                                                         screenService) then
    begin

      case screenService.GetScreenOrientation of
        TScreenOrientation.Portrait         : cmd := TS4Api_SysEvents.OrientationChange_Portrait;
        TScreenOrientation.Landscape        : cmd := TS4Api_SysEvents.OrientationChange_Landscape;
        TScreenOrientation.InvertedPortrait : cmd := TS4Api_SysEvents.OrientationChange_PortraitInv;
        TScreenOrientation.InvertedLandscape: cmd := TS4Api_SysEvents.OrientationChange_LandscapeInv;
      end;

    end;

    screenService := nil; // Release the ServiceIntf

  end;

   .....

end;

Rollo

[erich.wanker]

super .. DANKE

Werde ich mir anschauen

LiGrü
Erich