Android close

[hido]

Selam;

Uygulamada çıkış onayı için MessageDlg kullanmak istedim; fakat resimdeki hatayı aldı. Form çıkış omayı için kod olarak ne kullana bilirim? nette bu konu ile ilgili bir şey bulamadım...

Kod: Tümünü seç

procedure TForm1.CloseClick(Sender: TObject);
begin
  if MessageDlg('Çıkış yapmak istiyor musunuz?', TMsgDlgType.mtConfirmation,
    [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0, TMsgDlgBtn.mbNo) = mrYes then
  begin
    MainActivity.finish;
  end
  else
  begin
    /// ShowMessage('Çıkış iptal edildi');
  end;
end;

[fesiharslan]

Merhaba;
Uygulamayı sonlandırmak için

Kod: Tümünü seç

Application.Terminate;

veya

Kod: Tümünü seç

Form1.Close;//Ana Form

[fesiharslan]

Soruyu yanlış anladım.
Modal form oluşturmak için Anonymous metod kullanmak gerekiyor

Kod: Tümünü seç

procedure TForm1.ButtonClick(Sender: TObject);
begin
  form2:=Tform2.Create(nil);
  form2.ShowModal(
    procedure(modalresult:Tmodalresult)
    begin
      if modalresult=mrOk then
       Application.Terminate 
        else 
	 showmessage('Çıkış iptal edildi');
      form2.DisposeOf;
    end
  );
end;

[fesiharslan]

Delphi'nin yeni versiyonunda (Delphi 10.1 Berlin) bu kod yapısına gerek kalmayacak.
TDialogServiceAsync class metodu ile doğrudan modal dialog oluşturulabilecek.