Delphi中Messagedlg用法

标签：中文   idc   das   子目录   对话   错误   代码   var   重新编译   

MessageDlg用法

对话框类型：
mtwarning——含有感叹号的警告对话框
mterror——含有红色叉符号的错误对话框
mtinformation——含有蓝色i符号的信息对话框
mtconfirmation——含有绿色问号的确认对话框
mtcustom——不含图标的一般对话框，对话框的标题是程序的名称

按钮组中的按钮：
mbYes——mrYes或6
mbNo——mrNo或7
mbOk——mrOk或1
mbCancel——mrCancel或2
mbHelp——help按钮
mbAbort——mrAbort或3
mbRetry——mrRetry或4
mbIgnore——mrIgnore或5
mbAll——mrAll或8
mbNoToAll——9
mbYesToAll——10

procedure TForm1.Button1Click(Sender: TObject);
var
S:string;
begin
if MessageDlg(‘提示框‘,mtInformation,[mbok,mbyes],0)=mryes then
messagebeep(MB_ICONEXCLAMATION);
end;

TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);

TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
mbAll, mbNoToAll, mbYesToAll, mbHelp);

const
mrNone = 0;
mrOk = idOk;
mrCancel = idCancel;
mrAbort = idAbort;
mrRetry = idRetry;
mrIgnore = idIgnore;
mrYes = idYes;
mrNo = idNo;
mrAll = mrNo + 1;
mrNoToAll = mrAll + 1;
mrYesToAll = mrNoToAll + 1;

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子目录下,就一劳永逸啦!

Delphi中Messagedlg用法

标签：中文   idc   das   子目录   对话   错误   代码   var   重新编译   

原文地址：https://www.cnblogs.com/qinarjan/p/11622947.html