XE7 Android 中使用 MessageDlg 范例

  MessageDlg('Choose a button:', System.UITypes.TMsgDlgType.mtInformation,
    [
      System.UITypes.TMsgDlgBtn.mbYes,
      System.UITypes.TMsgDlgBtn.mbNo,
      System.UITypes.TMsgDlgBtn.mbCancel
    ], 0,
    procedure(const AResult: TModalResult)
    begin
      if AResult = mrYES then
         ShowMessage('You chose Yes') else
      if AResult = mrNo then
         ShowMessage('You chose No') else
      if AResult = mrCancel then
         ShowMessage('You chose Cancel');
    end);

 

InputQuery('Input', ['Name'], [''],
  procedure(const AResult: TModalResult; const AValues: array of string)
  begin
    if AResult = mrOk then
      Showmessage(AValues[0]);
  end);

更新：

下面代码 Android 实机没问题，但在 iOS 实机没有动作。

MessageDlg('Choose a button:', System.UITypes.TMsgDlgType.mtInformation, mbOKCancel, 0,
  procedure(const AResult: TModalResult)
  begin
       if AResult = mrOk then
          ShowShareSheetAction1.ExecuteTarget(Sender); // iOS 实机没有动作 (没有当机)
  end);