Delphi MessageDlg函数使用方法

Posted 2023-04-22

如何在MessageDlg函数第一个参数处既加入文字又加入变量值？举个例子，MessageDlg('各位数之和='，mtInformation,[mbOK],0),如何在'各位数之和='后把计算所得的结果加进去？

哈哈，上面的兄台用的是MessageBox()函数，将他的改写一下：
if MessageDlg(PChar(\'请您认真核对付款方式，现在的付款方式是：\'+fukuanfangshi+\'！正确吗？\'),mtInformation,[mbOK,mbCancel],0)=mrOK then
MessageDlg我一直用得不习惯，好像不能设置缺省按钮和标题，建议你用MessageBox()或Application.MessageBox()。 参考技术A MessageDlg(PChar('请您认真核对付款方式，现在的付款方式是：'+fukuanfangshi+'！正确吗？'),'提示',MB_OKCANCEL+MB_ICONINFORMATION)=IDOK
fukuanfangshi是字符变量

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