消息框中按键显示中文的问题？

Question

各位，我发现如果调用delphi中showmessage或者messagedlg等函数，他们的按键总是显示为英文，请问有没有办法可以将英文改为中文（比如‘Yes’改为‘确定’）？

Answer 1

Application.MessageBox('a','info',MB_OKCANCEL)

Answer 2

修改Consts.pas文件，并把它存在当前工程所在的文件夹中

Answer 3

Application.MessageBox('a','info',MB_OKCANCEL)
用Tapplication的MessageBox 函数了

Answer 4

Application.MessageBox() 就可以了

Answer 5

但是MessageBox()不可以显示出图案。谢谢。

Answer 6

比如
SMsgDlgYes = '&Yes';
改为：
SMsgDlgYes = '(&Y)是';
相应地，其它都很容易改

Answer 7

那你用li_zhifu(东北人)的方法试试

Answer 8

li_zhifu(东北人)，我把Consts已经拷贝到我的文件夹下面，并且做了相应的修改，而且在我的主程序中的uses部分也加上了Consts，但是编译运行后，依然是英文。
是否要在uses部分明确指定我改写的Consts文件所在，比如：uses
  ...,...,...,C:\Consts;请指教，谢谢。

Answer 9

SMsgDlgYes = '(&Y)是';
SMsgDlgNo = '(&N)否';
SMsgDlgOK = '好';