asked on 3/12/2017

Delphi Firmonkey, Android: blocking dialogs not implemented on this platform

Hello,

I use Delphi Seattle.

I have a MessageDlg like this:
if MessageDlg('Would you like to continue?'
, TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], -1) = mrOK then

But on Android I get this error message: "blocking dialogs not implemented on this platform"

How can I ask then the user to choose?

Thank you.

Delphi Android Smartphone Programming

Last Comment

Sinisa Vuk

3/17/2017

Sinisa Vuk

3/13/2017

You should use anonymous method like described in this article..
This is snippet from it (fmxexpress):

MessageDlg('Do you want to press yes or no?', System.UITypes.TMsgDlgType.mtInformation,
[
System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo
], 0,
procedure(const AResult: TModalResult)
begin
case AResult of
{ Detectwhichbuttonwaspushedand show a differentmessage }
mrYes:
begin
// pressed yes
end;
mrNo:
begin
// pressed no
end;
end;
end
);
//....

Open in new window

Member_2_7965240

3/13/2017

ASKER

Hello,

Thank you for the answer. It did pop up but in the background, it continued everything which was after the MessageDlg.

MessageDlg('Do you want to press yes or no?', System.UITypes.TMsgDlgType.mtInformation,
ShowMessage('xxx');

Open in new window

If I use the code above in a Vcl app, first it waits for the user to chose the MessageDlg option, then the ShowMessage would fire.
However, on Android I saw the ShowMessage first and then the MessageDlg.

This is weird, this way MessageDlg is useless on Android. What do you think?

ASKER CERTIFIED SOLUTION

Sinisa Vuk

3/13/2017

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

Member_2_7965240

3/17/2017

ASKER

Hello,

Is TDialogService in Delphi Seattle too? I put FMX.DialogService in Uses list but it couldn't find it.

Thank you.

Sinisa Vuk

3/17/2017

don't know ... but instead of TDialogService.MessageDialog use MessageDlg. Then you don't need any additional uses...