如何让Lazarus或Delphi的MessageBox能显示中文

如题所述

MessageBox 是 Windows API,可以显示多种风格的消息对话框,比 delphi 的 ShowMessage 要好用,以下是示例代码:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.MessageBox('被除数不能为零,请重新设置', '信息提示', MB_ABORTRETRYIGNORE +
    MB_ICONSTOP);
end;

运行截图:


温馨提示:内容为网友见解,仅供参考
无其他回答

如何让Lazarus或Delphi的MessageBox能显示中文
在Lazarus中有一个问题,就是当你使用MessageBox时不能显示中文信息,这对于英文不好的说实属一个大问题。实质上现如今的软件都基本上是使用UNICODE编码,支持几十种语言,所以就不是什么大问题了,但对于新手来说可能略显困难!正确显示中文的做法如下:MessageBox(0,PChar(UTF8ToAnsi('正常显示中文'))...

如何让Lazarus或Delphi的MessageBox能显示中文
MessageBox 是 Windows API,可以显示多种风格的消息对话框,比 delphi 的 ShowMessage 要好用,以下是示例代码:procedure TForm1.Button1Click(Sender: TObject);begin Application.MessageBox('被除数不能为零,请重新设置', '信息提示', MB_ABORTRETRYIGNORE + MB_ICONSTOP);end;运行截图:

相似回答