Immer Ärger mit ARC

[Sir Rufo]

Zitat von Ookami:

ohne "Application.RealCreateForms; " geht es, mit, geht es nicht mehr, der Bildschirm bleibt schwarz.

Funktioniert das denn bei Apps für Android so anders?
Rethorisch: Auf was muss ich mich den dann noch bei IOs / MacOSx einlassen?

Ja, die Mobile-Platformen sind da anders (hatte ich nicht mehr so auf dem Schirm) und eigentlich sollte man dort auch auf die entsprechenden Ereignisse reagieren

Delphi-Quellcode:

  // registrieren
  if TPlatformServices.Current.SupportsPlatformService( IFMXApplicationEventService, FApplicationEventService )
  then
    begin
      FApplicationEventService.SetApplicationEventHandler( Self.ApplicationEventHandler );
    end;

// Handler
function TMain_Form.ApplicationEventHandler( AAppEvent: TApplicationEvent; AContext: TObject ): Boolean;
begin
  case AAppEvent of
    TApplicationEvent.FinishedLaunching:
      TApp.Log( '[AppEvent] FinishedLaunching' );
    TApplicationEvent.BecameActive:
      TApp.Log( '[AppEvent] BecameActive' );
    TApplicationEvent.WillBecomeInactive:
      TApp.Log( '[AppEvent] WillBecomeInactive' );
    TApplicationEvent.EnteredBackground:
      TApp.Log( '[AppEvent] EnteredBackground' );
    TApplicationEvent.WillBecomeForeground:
      TApp.Log( '[AppEvent] WillBecomeForeground' );
    TApplicationEvent.WillTerminate:
      TApp.Log( '[AppEvent] WillTerminate' );
    TApplicationEvent.LowMemory:
      TApp.Log( '[AppEvent] LowMemory' );
    TApplicationEvent.TimeChange:
      TApp.Log( '[AppEvent] TimeChange' );
    TApplicationEvent.OpenURL:
      TApp.Log( '[AppEvent] OpenURL' );
  end;
  Result := True;
end;