谁可以把 MessageDlg(sStr, mtInformation, [mbYesToAll, mbYes, mbNo, mbCancel], 0) 修改为中文提示：

Question

用 application.messagebox()  好用的不得了！

Answer 1

MessageDlg 是VCL的函数，他用的是vcl的资源，vcl是英文的，他肯定也是英文的。
MessageBox 和Application.MessageBox使用的window系统的api，他和window有关系，
中文的window，他也就是中文的了。

Answer 2

但application.messagebox没有YesToAll功能
我这个需要YesToALl, Yes, No, Cancel功能。

Answer 3

呵呵，你可以汉化Delphi的Const函数库嘛，在Delphi\lib里，有好多呢！

Answer 4

就是MessageBox好用!
  if Application.MessageBox('asd','qwe',MB_OKCANCEL+MB_IconInformation+MB_DefBUTTON1) = IDOK then
  begin  end;

Answer 5

application.messagebox没有YesToAll功能

Answer 6

修改Delphi的Dialogs模块的1575行，把英文改为中文试试。呵呵！~~
  ButtonNames: array[TMsgDlgBtn] of string = (
    'Yes', 'No', 'OK', 'Cancel', 'Abort', 'Retry', 'Ignore', 'All', 'NoToAll',
    'YesToAll', 'Help');

Answer 7

但是MessageDlg的mtInformation是英文的，怎么办？

Answer 8

自己写一个窗体，不难，但我想弄明白应该如何解决问题。MessageDlg的mtInformation是英文的，怎么办？

Answer 9

只有汉化MessageDlg的源代码，然后编译替换与原来的dcu文件。

Answer 10

在Const单元文件里存储着的对话框提示信息。
我以前改过，你去查找以下。应该有， 修改以后应该把Const单元所在路径
加入工程的搜索路径里。重新编译即可。

Answer 11

应该是在const文件的132行。去看一下