Messagedlg em Delphi xe7 android
Estou apenas tentando executar uma amostra fornecida durante a instalação do Delphi xe7, o MessageAlerts na plataforma Android, infelizmente não funciona, fornece a seguinte mensagem de erro:
Diálogos de bloqueio não implementados nesta plataforma
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;
Alguma idéia de como resolvê-lo?