Android FormResize Laufzeitfehler

[Rollo62]

Ich nutze statt Resize nur die OrientationChange Events bzw. PlatformService für das Feststellen welche Richtung gerade anliegt.

Delphi-Quellcode:

FOrientationChangedId := TMessageManager.DefaultManager.SubscribeToMessage(
           TOrientationChangedMessage,
           procedure (const Sender: TObject; const M: TMessage)
           begin
               EvOnOrientationChanged( Sender, M);
           end
         );

    ....  


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

      Result := AScreenService.GetScreenOrientation;

      AScreenService := nil;
    end

Rollo