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