ShowMessage 有效，但 application.messagebox 无效

Question

ShowMessage('MAC  - (Client: '
        + DM.qTmp.FieldByName('CL_NR').AsString + ' , Place: ' + DM.qTmp.FieldByName('CL_DESC').AsString);

此代码工作正常，但我如何使用

Application.MessageBox('MAC  - (Client: '
            + DM.qTmp.FieldByName('CL_NR').AsString + ' , Place: ' + DM.qTmp.FieldByName('CL_DESC').AsString' , 'Error', 16);

出现各种错误 [dcc32 错误] untPCName.pas(79)：E2010 不兼容类型：'PWideChar' 和 'string' DELPHI 版本为 10.2。

Answer 1

修复 "Incompatible types" 错误你必须投射。注意 PChar(...):

Application.MessageBox(PChar('Whatever'), 'Error', MB_ICONHAND);

我也用一些合理的东西替换了神奇的数字 16。

ShowMessage 有效，但 application.messagebox 无效

ShowMessage works but application.messagebox dont

delphi

delphi-10.2-tokyo