XE7 Android 中使用 MessageDlg 范例

weixin_30898109

于 2014-09-05 11:47:00 发布

阅读量174

点赞数

CC 4.0 BY-SA版权

文章标签：移动开发

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

本文介绍了一个使用Delphi实现的跨平台对话框示例，包括消息对话框和输入查询对话框，并展示了如何根据不同用户选择执行相应操作。但作者在iOS设备上遇到了执行特定动作时无响应的问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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