mobilde programı kapatmak

[erdogan]

Arkadaşlar,

Aşağıdaki kodu androidde nasıl çalıştırabilirim ?

   IF ( Application.MessageBox('UYARI : Program Terk edilecek !'+#13+'Onaylıyor musunuz?',
                            'Program Çıkışı',
                           mb_YesNo+                     
                           mb_IconQuestion+            
                           mb_DefButton1+               
                           mb_SystemModal)    )       
                                                =IdYes   
   Then
    begin

         Close;

     end
  else
   Action :=CaNone;

[hi_selamlar]

Merhabalar,

Fesih Bey'in daha önce paylaştığı konu, http://www.delphican.com/resim-silme.htm...mx.Dialogs

Saygılar

[elixir84]

function TForm1.MsgDlg(Mesaj: String; AButtons: TMsgDlgButtons; ACloseDialogProc: TInputCloseDialogProc): TModalResult;
var
 SResult: TModalResult;
begin
TDialogService.MessageDialog(mesaj, System.UITypes.TMsgDlgType.mtInformation,AButtons,System.UITypes.TMsgDlgBtn.mbYes, 0,
            procedure(const AResult: TModalResult)
            begin
              ACloseDialogProc(AResult);
              SResult := AResult;
            end
            );
Result := SResult; // = mrYes;
end;


procedure TForm1.kapat;
begin
{$IFDEF ANDROID}
SharedActivity.Finish;
{$ENDIF}

{$IFDEF IOS}
HALT;
{$ENDIF}

{$IFDEF MSWINDOWS}
close;
halt
{$ENDIF MSWINDOWS}

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ana.MsgDlg('Kapatmak İstediğinizden Eminmisiniz?', [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo],
                      procedure (const AResult: TModalResult)
                      begin
                         if AResult = mrYes then
                         begin
                         kapat;
                         end;
                      end);
end;

[erdogan]

Çözemedim valla

[Fesih ARSLAN]

Merhaba,
Mobil uygulamalarda (Android, iOS) uygulama kapanmıyor.
Mobil uygulama yaşam olaylarını (Yeni Kaynak kitabımızda detaylı bir anlatım yapıldı) inceleyin.