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