Android上的Delphi Firemonkey中的模式弹出窗口

Question

我正在使用Android应用程序，但是我需要一个Popup，可以在代码中调用该Popup以创建Modal Popup，因此请在Code中设置一个Variable。 我试图将其散布到不同的函数中，并且可以正常工作，但是当从一个Funktion跳转到另一个Funktion时，遵循代码变得很糟糕...

我要执行的操作类似于MessageDlg()函数，但未在Android上实现。

我已经尝试了带匿名函数的MessageDlg() ，但是在按下按钮之前，它也运行了下面的代码。

我需要类似的东西，但是在Android上，如果我输入了输入内容，就会执行if语句。

MyInt: Integer;
begin

  MessageDlg('You want to Continue?', System.UITypes.TMsgDlgType.mtInformation,
  [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,
  procedure(const AResult: TModalResult) begin
    case AResult of
      mrYes:
        MyInt := 0;
      mrNo:
        MyInt := 1;
    end;
  end);

  if MyInt = 0 then
    //Do Something
  else
    //Do Something
end;

我需要“点击按钮继续活动”之类的东西

Answer 1

您必须将逻辑移到匿名方法中。 这将在用户单击适当的按钮后执行。 在这种情况下，您也不需要MyInt变量。

begin

  MessageDlg('You want to Continue?', System.UITypes.TMsgDlgType.mtInformation,
  [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,
  procedure(const AResult: TModalResult) begin
    case AResult of
      mrYes:
        begin
          //Do Something (MyInt = 0 branch)
        end;
      mrNo:
        begin
          //Do Something (MyInt = 1 branch)
        end;
    end;
  end);

end;