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);

更新：

下面代码 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);

更多相关文章

1. GestureDetector.OnGestureListener 详解以及android手势动作详
2. android 动作处理之手势捕捉
3. android 触摸手指动作放大和缩小图片
4. Python 之父的解析器系列之六：给 PEG 语法添加动作
5. 不仅模糊了Jquery中的一个动作
6. php 登陆动作详解
7. php判断手机浏览还是web浏览，并执行相应的动作
8. 如何通过ajax将javascript数组传递给YII动作
9. 在JComboBox箭头JButton上附加动作事件

随机推荐

1. 聊聊gost的DeltaCompare
2. JavaScript中的一次性定时器和周期性定时
3. 讲一讲ES6新增的两种数据结构Map和Set
4. JavaScript 中 call()、apply()、bind()
5. 【Nest教程】集成Swagger自动生成接口文
6. 【Nest教程】数据验证class-validator
7. 浅谈云计算的三种服务模式：IaaS，PaaS和SaaS
8. win10 安装 MySQL8.0版本
9. aws 部署方案
10. 【Nest教程】连接MySQL数据库