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

要修复“不兼容的类型”错误，必须强制转换。请注意PChar(...)：

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

我还用一些明智的方法代替了魔术数字16。