Messagedlg в Delphi Xe7 Android
Я просто пытаюсь выполнить пример, данный во время установки Delphi xe7, MessageAlerts на платформе Android, к сожалению, он не работает, он выдает следующее сообщение об ошибке:
Блокирующие диалоги не реализованы на этой платформе
procedure TMessageAlertsForm.btnMultiButtonAlertClick(Sender: TObject);
begin
{ Show a multiple-button alert that triggers different code blocks according to
your input }
case MessageDlg('Choose a button:', System.UITypes.TMsgDlgType.mtInformation,
[
System.UITypes.TMsgDlgBtn.mbYes,
System.UITypes.TMsgDlgBtn.mbNo,
System.UITypes.TMsgDlgBtn.mbCancel
], 0) of
{ Detect which button was pushed and show a different message }
mrYES:
ShowMessage('You chose Yes');
mrNo:
ShowMessage('You chose No');
mrCancel:
ShowMessage('You chose Cancel');
end;
end;
Есть идеи, как это решить?