messagedlg能不能显示中文?例如显示“确定”,而不是“ok” 去http://kingron.myetang.com下在那个Delphi汉化资源,覆盖你Delphi目录下面同名文件,然后重新Build你的程序。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 MessageDlg()信息的汉化Delphi中的常量都放在consts.pas中,修改它可以达到汉化的目的.如: MessageDlg()显示的窗口标题及其中的 按钮标题都是英文,虽然不影响使用,但在一个中文软件中总显得有些不协调. 为此在consts.pas中查找以下内容: "SMsgDlgWarning" 把 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 = '是(&Y)'; SMsgDlgNo = '不(&N)'; SMsgDlgOK = '确定'; SMsgDlgCancel = '取消'; SMsgDlgHelp = '帮助(&H)'; SMsgDlgHelpNone = '没有该帮助信息'; SMsgDlgHelpHelp = '帮助'; SMsgDlgAbort = '放弃(&A)'; SMsgDlgRetry = '重试(&R)'; SMsgDlgIgnore = '忽略(&I)'; SMsgDlgAll = '全部(&A)'; SMsgDlgNoToAll = '全都不(&O)'; SMsgDlgYesToAll = '全都是(&A)'; 然后重新编译Consts.pas,把Consts.duc 拷到delphi的lib和slib子目录下,就一劳永逸啦! MessageBox(Handle, '这不是一种方法吗?', '问题', MB_YESNO + MB_ICONQUESTION);试试看..... 其中的 MB_YESNO(是/否) 可改为 MB_OK(确定), MB_ICONQUESTION 为“问号”图标,具体怎么用可按 F1 查看帮助... use it. application.messagebox 是呀,用这个就可以了: if Application.MessageBox('WinStar系列软赌东道 的 的赌东道赌东道赌件','WinStar系列软件', MB_DEFBUTTON1+ MB_ICONQUESTION+ MB_yesno)=idyes then 最好是找个汉化的consts.pas覆盖一下就可以了。 怎么把一个按钮的caption倒着放? 过年快放假了,开心,放点分之6 强烈鄙视,D版的某些版主,不吃凉粉你就让凳子(二) 一统计题的疑问 能动态的调用Frame吗? 取系统当前输入法名称。 帮帮我吧! XaudioPlayer问题 关于TNMFTP的一个问题。 一个窗体中如何调用另外窗体中的函数?谢谢! 简单问题,,请大虾小虾老虾们帮帮忙了,,,嘿嘿,,,@_@ 问题多多,,取dbgrid1某一个cell的值,,,嘿嘿@_@
Delphi中的常量都放在consts.pas中,修改它可以达到汉化的目的.如:
MessageDlg()显示的窗口标题及其中的
按钮标题都是英文,虽然不影响使用,但在一个中文软件中总显得有些不协调.
为此在consts.pas中查找以下内容:
"SMsgDlgWarning"
把
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 = '是(&Y)';
SMsgDlgNo = '不(&N)';
SMsgDlgOK = '确定';
SMsgDlgCancel = '取消';
SMsgDlgHelp = '帮助(&H)';
SMsgDlgHelpNone = '没有该帮助信息';
SMsgDlgHelpHelp = '帮助';
SMsgDlgAbort = '放弃(&A)';
SMsgDlgRetry = '重试(&R)';
SMsgDlgIgnore = '忽略(&I)';
SMsgDlgAll = '全部(&A)';
SMsgDlgNoToAll = '全都不(&O)';
SMsgDlgYesToAll = '全都是(&A)';
然后重新编译Consts.pas,把Consts.duc
拷到delphi的lib和slib子目录下,就一劳永逸啦!
具体怎么用可按 F1 查看帮助...
application.messagebox
if Application.MessageBox('WinStar系列软赌东道 的 的赌东道赌东道赌件','WinStar系列软件',
MB_DEFBUTTON1+ MB_ICONQUESTION+ MB_yesno)=idyes then