动态提醒

下一节课程: T1配置概述 (33364次播放)

5秒后自动播放下一节
  重新观看
章节
 
 
if MessageDlg('Welcome to my Delphi application. Exit now?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
 
Close;
end;

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