Wie man Android-App in Delphi-XE5 Firemonkey-Anwendung zu schließen?

Ich habe dieses Stück CodeWie man Android-App in Delphi-XE5 Firemonkey-Anwendung zu schließen?

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
var 
    msg: String; 
begin 
    msg := 'Do you really want to exit?'; 

    if MessageDlg(msg, TMsgDlgType.mtConfirmation, 
    [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) = mrNo then 
    CanClose := False 
    else 
    CanClose := True; { FIXME: don't want to work on Android } 
end;

Es perfekt auf Windows. Die Anwendung wird geschlossen, wenn ich "Ja" wähle. Die Anwendung schließt jedoch nicht auf Android. Was mache ich falsch?

Quelle

2013-10-07 Edijs Kolesnikovičs

Das Schließen der Anwendung, wenn das letzte Formular geschlossen wird, ist eine Windows-Sache. Eine Android App läuft weiter.

Um die App auf Android zu schließen, rufen Sie SharedActivity.finish von der FMX.Helpers.Android Einheit.

Quelle

2013-10-08 14:11:57

Oder die 'FMX.TApplication.Terminate()' Methode, die auch auf Android die Aktivität beendet (und tut das Äquivalent Aktion auf anderen Plattformen). –

@Remy On 'XE7' für mich,' Application.Terminate' gibt zahlreiche Fehlermeldungen in der IDE beim Debuggen auf einem Android-Gerät. –

@JerryDodge: Wie? –

Calling Halt schließt auch die Anwendung.

Quelle

2013-10-09 09:16:45

Mit Halt stoppt der Ausführungspfad sofort. Ihr endlich mal in Versuch ... endlich werden Statements nicht aufgerufen. Die OnClose Ihres Formulars wird nicht aufgerufen usw. –

Danke Marcus. Übrigens habe ich SharedActivity.finish in einer Anwendung ausprobiert, in der ich TGuestureManager verwende, es hat die Anwendung nicht geschlossen. Es ist immer noch in der laufenden Anwendungsliste. Außerdem, wenn ich versuche, es zu aktivieren, hängt es. Fehle ich etwas? Wenn ich es im Debugger-Modus ausführen. Ich bekomme Ausnahme in TGuestureManger.Notification Verfahren in der ersten Zeile. –

Haben Sie noch andere Aktivitäten? –

uses 
    FMX.Platform.Android; 

procedure TForm2.SpeedButton1Click(Sender: TObject); 
begin 
    MainActivity.finish; 
end;

Quelle

2013-10-14 03:40:52 Helios

Ich habe alle Kombinationen ausprobiert.

- SharedActivity.Finish - NOT WORKING FOR ME 
- MainActivity.Finish - NOT WORKING FOR ME 
- Application.MainForm.DisposeOf - NOT WORKING FOR ME

Dies ist funktioniert bei mir:

FreeAndNil(Application);

Quelle

2014-03-03 22:33:42 xJernej

Es ist ein brutaler Weg, um Ihre Anwendung zu töten. – naXa

Stellen Sie sicher, dass FMX.Platform.Android richtig deklariert ist. – Machado

Haben Sie 'FMX.Application.Terminate()' schon probiert? –

Wie man Android-App in Delphi-XE5 Firemonkey-Anwendung zu schließen?

Antwort

Verwandte Themen