Hab die Klasse so ergänzt, funktioniert einwandfrei
Delphi-Quellcode:
procedure TTMSFMXNativeUIPageViewController.SetActivePage(APageIndex: Integer);
var ActivePage: TTMSFMXNativeUIViewController;
VC: NSArray;
begin
if (APageIndex < 0) and (APageIndex > Pages.Count - 1) then exit;
ActivePage:= FPages.Items[APageIndex].View;
VC:= TNSArray.Wrap(TNSArray.OCClass.arrayWithObject((ActivePage.ViewController as ILocalObject ).GetObjectID));
PageViewController.setViewControllers(VC, UIPageViewControllerNavigationDirectionForward, true, nil);
GetViewForPage(APageIndex);
end;