如何使 showmessage提示时的"yes"按钮和"no"按钮变成中文“确定“和“取消”

Question

如何使 showmessage提示时的"yes"按钮和"no"按钮变成中文“确定“和“取消”
比如 
if messagedlg('打印请点确认按钮 ',mtconfirmation,[mbyes,mbno],0)=mryes then提示有两个选项"yes"按钮和"no"按钮，如何使他显示为中文“确定“和“取消”

Answer 1

if edit1.Text='' then messagebox(handle,'请填写编号!','提示',mb_ok+mb_iconwarning);

Answer 2

if messagebox(handle,'您确认要删除此条记录吗？','提示',mb_yesno+mb_iconwarning)=6 then

Answer 3

不好办,除非你修改
Conts文件中的:(修改后把这个文件拷贝到你的工程的路径中)
  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';

Answer 4

APPLICATION.MESSAGE('','',MB_ICONINFORMATION+MB_YESNO)

Answer 5

APPLICATION.MESSAGE('','',MB_ICONINFORMATION+MB_YESNO)=IDYES

Answer 6

application.MessageBox('好','提示',MB_ICONINFORMATION);

Answer 7

application.MessageBox('这回才对','系统提示',34);

Answer 8

啊，都被楼上的说完了。
Application.MessageBox 可以的。