Delphi-Quellcode:
function MyMessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
{$IFDEF ANDROID}
var
MsgDlgResult : Integer;
{$ENDIF}
begin
{$IFDEF ANDROID}
MsgDlgResult := -1;
FMX.Dialogs.MessageDlg(Msg, DlgType, Buttons, HelpCtx,
procedure(const AResult: TModalResult)
begin
MsgDlgResult:= AResult;
end);
while MsgDlgResult<0 do
begin
Application.Processmessages;
Sleep(10);
end;
Result := MsgDlgResult;
{$ELSE}
Result := FMX.Dialogs.MessageDlg(Msg, DlgType, Buttons, HelpCtx);
{$ENDIF}
end;
"Überlebt" das die App unter Android, wenn du bei angezeigtem Dialog zum Homescreen oder einer anderen App wechselst und danach zurück zu deiner App?