如何使MessageDlg显示出的是中文？

Question

老兄
那要修改源文件
你用MessageBox
或Application.MessageBox

Answer 1

使用application.messagebox即可,例子如下:
    
   if application.messagebox('要显示的提示文字','标题文字',MB_OKCANCEL + MB_DEFBUTTON2+MB_ICONQUESTION)=1 then
      .........
   具体的按钮类型和图标可以看WINDOWS SDK 中关于messagebox的帮助
   

Answer 2

MessageDlg的按钮是不能显示中文的，用MessageBox吧。

Answer 3

MessageDlg可以显示中文按钮，要修改consts.pas这个
文件，在Delphi的安装目录下搜一下找到这个文件。
修改下面的内容：{
  SMsgDlgWarning = 'Warning';
  SMsgDlgError = 'Error';
  SMsgDlgInformation = 'Information';
  SMsgDlgConfirm = 'Confirm';
  SMsgDlgYes = '&Yes';
  SMsgDlgNo = '&No';
  SMsgDlgOK = 'OK';
  SMsgDlgCancel = 'Cancel';
  SMsgDlgHelp = '&Help';
  SMsgDlgHelpNone = 'No help available';
  SMsgDlgHelpHelp = 'Help';
  SMsgDlgAbort = '&Abort';
  SMsgDlgRetry = '&Retry';
  SMsgDlgIgnore = '&Ignore';
  SMsgDlgAll = '&All';
  SMsgDlgNoToAll = 'N&o to All';
  SMsgDlgYesToAll = 'Yes to &All';
  }
  SMsgDlgWarning = '警告';
  SMsgDlgError = '错误';
  SMsgDlgInformation = '信息';
  SMsgDlgConfirm = '确认';
  SMsgDlgYes = '是';
  SMsgDlgNo = '否';
  SMsgDlgOK = '确定';
  SMsgDlgCancel = '取消';
  SMsgDlgHelp = '帮助';
  SMsgDlgHelpNone = '帮助信息不可用';
  SMsgDlgHelpHelp = '帮助';
  SMsgDlgAbort = '中止';
  SMsgDlgRetry = '重试';
  SMsgDlgIgnore = '忽略';
  SMsgDlgAll = '所有';
  SMsgDlgNoToAll = '全部否定';
  SMsgDlgYesToAll = '全部确认';
修改后，把这个文件拷到你的源程序目录中就行了。