Messagedlg in Delphi xe7 android
Ich versuche nur, ein Beispiel auszuführen, das während der Installation von Delphi xe7, den MessageAlerts auf der Android-Plattform, angegeben wurde. Leider funktioniert es nicht. Es wird die folgende Fehlermeldung angezeigt:
Blocking Dialoge, die auf dieser Plattform nicht implementiert sind
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;
Eine Idee, wie man es löst?