Einzelnen Beitrag anzeigen

Benutzerbild von danielmagin
danielmagin

Registriert seit: 6. Dez 2003
Ort: Frankfut am Main
54 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#2

AW: Firemonkey IOS Bug

  Alt 7. Feb 2014, 21:28
Ich gehe davon aus du benutzt Delphi XE5

ganze einfach:
Im Main Form Create:
Delphi-Quellcode:
procedure TfrmMain.FormCreate(Sender: TObject);
var
  AppEventSvc: IFMXApplicationEventService;
begin
  //do not forget to add in uses FMX.Platform

  if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(AppEventSvc)) then
    AppEventSvc.SetApplicationEventHandler(AppEvent);
end;
dann im form private Bereich

Delphi-Quellcode:
  TfrmMain = class(TForm)
  .....
    private
    { Private declarations }

      .....

    function AppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;
Implementierung:

Delphi-Quellcode:
function TfrmMain.AppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;
begin
  case AAppEvent of
    aeFinishedLaunching:
      begin
      end;

    aeBecameActive:
      begin
///code z.b. hier
      end;

    aeWillBecomeInactive:
      ;
    aeEnteredBackground:
      begin
        // StopThreads;

       ///code z.b. hier
      end;
    aeWillBecomeForeground:
      begin

      end;
    aeWillTerminate:
      ;
    aeLowMemory:
      ;
    aeTimeChange:
      ;
    aeOpenURL:
      ;
  end;
end;

gruss Daniel Magin
DeveloperExpert.net
Daniel Magin
  Mit Zitat antworten Zitat