MessageDlg Evet/Hayır Yazdırma

[Halil Han BADEM]

(22-07-2020, Saat: 06:43)emozgun Adlı Kullanıcıdan Alıntı:

(31-01-2018, Saat: 18:42)Halil Han Badem Adlı Kullanıcıdan Alıntı:

var
 ASync: IFMXDialogServiceAsync;
begin
 if TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceAsync, IInterface(ASync)) then
 begin
  ASync.MessageDialogAsync('Bu verileri silmek istediğinize emin misiniz?', System.UITypes.TMsgDlgType.mtInformation,
  [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], TMsgDlgBtn.mbNo,0,
   procedure(const AResult: TModalResult)
   begin
    case AResult of
      mrYes:
     begin
       HareketlerView.Items.Clear; ///Görmeyin
       QrHareketler.Close; ///Görmeyin
       QrHareketler.SQL.Text := 'DELETE FROM tblhareketler';  ///Görmeyin
       QrHareketler.Open; ///Görmeyin
     end;
      mrNo:
     begin
      HareketlerViewPullRefresh(sender); ///Görmeyin
     end;
    end;
   end
  );
 end;
end;

Daha 3 gün önce yazmıştım. Evet/Hayır meselesine gelince onu bende düzenledim olmadı.

İlginçtir MessageDialogAsync procedure'u case ile çalışmıyor, if-then ile çalışıyor. Bilginize.. 

  if TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceAsync, IInterface(ASync)) then begin
   ASync.MessageDialogAsync(
     'Bu verileri silmek istediğinize emin misiniz?', System.UITypes.TMsgDlgType.mtInformation,
     [
        System.UITypes.TMsgDlgBtn.mbYes,
        System.UITypes.TMsgDlgBtn.mbNo
      ],
     TMsgDlgBtn.mbNo,0,
     procedure(const AResult: TModalResult)
     begin
       if(AResult = mrYes) then begin Showmessage('evet');  end;
       if(AResult = mrNo ) then begin Showmessage('hayır'); end;
     end
     );
 end;

Merhaba,
o zaman yaptığımda gayet stabil çalışıyordu. Güncelleme ile değişiklik gelmiş olabilir. 10.1 ile geliştiriyordum o zamanlar.