Einzelnen Beitrag anzeigen

QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.883 Beiträge
 
Delphi 12 Athens
 
#8

AW: Homescreen in IOS starten

  Alt 2. Okt 2018, 10:22
Delphi-Quellcode:
{$IFDEF IOS}
uses iOSapi.UIKit;
{$ENDIF}

Procedure OpenHomeScreen;
{$IFDEF ANDROID}
var
  Intent: JIntent;
{$ENDIF ANDROID}
{$IFDEF IOS}
var
  NavigationController:UINavigationController;
{$ENDIF}
Begin
{$IFDEF IOS}
  NavigationController := TUINavigationController.Wrap(TUINavigationController.OCClass);
  NavigationController.popToRootViewControllerAnimated(true);
{$ENDIF}
{$IFDEF ANDROID}
  Intent := TJIntent.Javaclass.init(TJIntent.JavaClass.ACTION_MAIN);
  Intent.addCategory(TJIntent.JavaClass.CATEGORY_HOME);
  Intent.setFlags(TjIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
  TAndroidhelper.Activity.startActivity(Intent);
{$ENDIF ANDROID}
End;
Greife ich so auf den NavigationController zu?
Ich hab in den Samples "Wrap" immer nur in Verbindung mit einer Klassenmethode gesehen...Die liefert vermutlich einen Singleton...

Delphi-Quellcode:
procedure TDeviceInfo.Load;
var
  Device : UIDevice;
begin
  Device := TUIDevice.Wrap(TUIDevice.OCClass.currentDevice);///<--So wie hier
  fManufacturer := NSStrToStr(Device.name);
  fLocalizedModel := NSStrToStr(Device.localizedModel);
  fmodel := NSStrToStr(Device.model);
  fBrand := fManufacturer;
end;
Aber die OCClass von TUINavigationController hat keine klassenmethode ...außer
Code:
attemptRotationToDeviceOrientation
Sorry, falls ich mich blöd anstelle.. während ich die Android Importe halbwegs verstehe, habe ich bei IOS noch keinen Durchblick.
Andreas
Monads? Wtf are Monads?

Geändert von QuickAndDirty ( 2. Okt 2018 um 10:30 Uhr)
  Mit Zitat antworten Zitat