Messagedlg en Delphi xe7 android
Solo estoy tratando de ejecutar una muestra dada durante la instalación de Delphi xe7, MessageAlerts en la plataforma Android, desafortunadamente no funciona, da el siguiente mensaje de error:
Diálogos de bloqueo no implementados en esta 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;
¿Alguna idea de cómo solucionarlo?