Delphi fmx blocked messageダイアログボックス

Question

JavaやAndroidスタジオを使って開発されたアンドロイドアプリを使用しているとき、ダイアログプロンプトに応答するまで、メッセージダイアログプロンプトが次の行の実行を継続することがわかりました。私はTDialogService.MessageDialog（AMessage、ADialogType、AButtons、ADefaultButton、0、procedurexyz）を使ってこれを実行しようとしています。プロンプトが表示されている間、次の行が実行され、ユーザーが次の操作を決定すると思われるので、プロンプトが役に立たなくなります。アクティブなブロックメッセージダイアログプロンプトを表示するには、誰からも助けが必要です。

Answer 1

あなたの提案の後に@カミ私はこれを思い付いて、それは非常にうまくいっていますが、提案や追加があります。

function MsgBox(const AMessage: string; const ADialogType: TMsgDlgType; const AButtons: TMsgDlgButtons; 
    const ADefaultButton: TMsgDlgBtn): Integer; 
var 
    myAns: Integer; 
    IsDisplayed: Boolean; 
begin 
    myAns := -1; 
    IsDisplayed := False;
 

While myAns = -1 do 
Begin 
    if IsDisplayed = False then 
    TDialogService.MessageDialog(AMessage, ADialogType, AButtons, ADefaultButton, 0, 
      procedure (const AResult: TModalResult) 
      begin 
       myAns := AResult; 
       IsDisplayed := True; 
      end); 

    IsDisplayed := True; 
    Application.ProcessMessages; 
End; 

Result := myAns; 

end; 
 

Answer 2

Embarcadero documentation says、そのAndroidプラットフォーム上で、あなたはこのように、あなたは回避策を使用することができ、「ブロッキング」モードを取得する唯一の非ブロッキングShowMessageのための呼び出し、MessageDialog、myForm.ShowModal等

を使用することができます。

function myMessageDialog(const AMessage: string; const ADialogType: TMsgDlgType; 
    const AButtons: TMsgDlgButtons; const ADefaultButton: TMsgDlgBtn): Integer; 
var 
    mr: TModalResult; 
begin 
    mr:=mrNone; 
    // standart call with callback anonimous method 
    TDialogService.MessageDialog(AMessage, ADialogType, AButtons, 
    ADefaultButton, 0, 
    procedure (const AResult: TModalResult) 
    begin 
     mr:=AResult 
    end); 

    while mr = mrNone do // wait for modal result 
    Application.ProcessMessages; 
    Result:=mr; 
end;