MessageDlg kullanımı (Android ve Windows üzerinde FireMonkey)

Bildiğimiz üzere aşağıdaki örnek Windows üzerinde sorun çıkarmadan çalışmakta ama Android hata vermekte. Kodu yeni bir proje oluşturup deneyin her iki platformda da.



case MessageDlg('Kayıt silinsin mi?', mtConfirmation, [mbYes, mbNo], 0) of
  mrYes: ShowMessage('YES');
  mrNo: ShowMessage('NO');
end;

Android üzerinde de doğru ve hatasız çalışması için şu şekilde formatlanmalı:

MessageDlg('Kayıt silinsin mi?',
            TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0,
            procedure(const AResult: TModalResult) begin
              case AResult of
                mrYes: ShowMessage('yes');
                 mrNo: ShowMessage('no');
              end;
            end
)