XE7 Android 中使用 MessageDlg 范例

最新推荐文章于 2022-03-18 09:15:05 发布

weixin_30898109

最新推荐文章于 2022-03-18 09:15:05 发布

阅读量150

点赞数

文章标签：移动开发

原文链接：http://www.cnblogs.com/onechen/p/3957746.html

版权

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