• XE7 Android 中使用 MessageDlg 范例


    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);
  • 相关阅读:
    SQLalchemy 字段类型
    爬虫学习
    Linux了解一下
    django-rest-framework
    vue相关理论知识
    Django认证系统
    Form组件
    JS之AJAX
    Django之中间件
    Django之ORM
  • 原文地址:https://www.cnblogs.com/karkash/p/7253278.html
Copyright © 2020-2023  润新知