再问Messagedlg(),显示中文提示(20分)

  • 主题发起人 主题发起人 milesmaqi
  • 开始时间 开始时间
M

milesmaqi

Unregistered / Unconfirmed
GUEST, unregistred user!
我曾经问过关于MESSAGEDLG()返回中文提示,如把(YES-是,NO-否,CANCEL取消 )
我提出问题之后,有很多高手给出了答案,但是说得太简单,而我是基础学者,
如有的说调用API,也有的说在安装文件中更改,,我更喜欢更改DELPHI5安装文件,VCL目录,
但是有几位朋友简单说了,我也一步一步做也,可是提示还是YESNOCANCEL,而不是我想要的是否取消,

有哪位高手可以详细地说一下,
我出80分,
 
MessageDlg是Delphi自己编写的。
使用API是。
1、Application.MessageBox('这个可以吗?','提示',32+mb_YesNo);
 
2、MessageBox(Handle,'这个也可以吧?','询问',32+mb_YesNo);
 
用MessageBox多爽啊,自己可以控制,显示中文也没有问题。
 
Application。MessageBox('string','sting',MB_ok+MB_iconinformation);用起来比
messageDlg要好,我现在都只用MessageBox了
 
delphi6
edit
delphi$/source/vcl/consts.pas

代码:
  SMsgDlgWarning = '警告';
  SMsgDlgError = '错误';
  SMsgDlgInformation = '信息';
  SMsgDlgConfirm = '确认';
  SMsgDlgYes = '是(&Y)';
  SMsgDlgNo = '否(&N)';
  SMsgDlgOK = '确定';
  SMsgDlgCancel = '取消';
  SMsgDlgHelp = '帮助(&H)';
  SMsgDlgHelpNone = '没有可用的帮助';
  SMsgDlgHelpHelp = '帮助';
  SMsgDlgAbort = '放弃(&A)';
  SMsgDlgRetry = '重试(&R)';
  SMsgDlgIgnore = '忽略(&I)';
  SMsgDlgAll = '全部(&A)';
  SMsgDlgNoToAll = '全部皆否(&o)';
  SMsgDlgYesToAll = '全部皆是(&A)';
====================
cmd

D:/Program Files/Borland/Delphi6>cd source

D:/Program Files/Borland/Delphi6/Source>cd vcl

D:/Program Files/Borland/Delphi6/Source/Vcl>dcc32 consts.pas
Borland Delphi Version 14.0
Copyright (c) 1983,2002 Borland Software Corporation
Consts.pas(300)
301 lines, 0.40 seconds, 1050 bytes code, 4 bytes data.

D:/Program Files/Borland/Delphi6/Source/Vcl>copy consts.dcu "c:/program files/bo
rland/delphi6/lib/consts.dcu"
改写 c:/program files/borland/delphi6/lib/consts.dcu 吗? (Yes/No/All): a
已复制 1 个文件。
=====================================================================
create new application in delphi6
put a button
double click the button you just put in the form
write the following code
messagedlg('现在是中文了,哈哈',mtInformation,mbOKCancel,0);

run you application
click on button
then you will get a dlg like the following url

效果http://www.landsea.com.cn/chinese/bbs/download/test.gif
 
用 Application.MessageBox
 
看看这篇文章吧,我在D5、D6下都成功了。改完注册表重新启动。
http://www.gpgame.com/docs/delphi/sys45.htm
 
多人接受答案了。
 
后退
顶部