MessageDlg消息对话框帮助(自译)

lhxzui

洗澡前，顺便练一下英语，有说的不恰当处，请高手指点。

消息对话框帮助

声明（4种形式）

function MessageDlg(

const aMsg: ;

DlgType: TMsgDlgType;

Buttons: TMsgDlgButtons;

HelpCtx: LongInt

):Integer;      function MessageDlg(

const aCaption: ;

const aMsg: ;

DlgType: TMsgDlgType;

Buttons: TMsgDlgButtons;

HelpCtx: LongInt

):Integer;      function MessageDlg(

const aCaption: ;

const aMsg: ;

DlgType: TMsgDlgType;

Buttons: TMsgDlgButtons;

HelpCtx: LongInt;

DefaultButton: TMsgDlgBtn

):Integer;      function MessageDlg(

const aCaption: ;

const aMsg: ;

DlgType: TMsgDlgType;

Buttons: TMsgDlgButtons;

const HelpKeyword:

):Integer;

参数表（暂且这样说吧），应该是重载procedure吧

aMsg		显示的提示信息。
DlgType		显示对话框的类型
Buttons		确定消息对话框上显示的按钮。
HelpCtx		用来指明显示帮助中的哪个主题。

函数返回值

该函数的返回值是用户单击的按钮，对话框通过单击按钮关闭。返回值以整型表示。

参数表（暂且这样说吧），应该是重载procedure吧

aCaption		设置消息对话框的标题。
aMsg		显示的消息。
DlgType		显示对话框的类型。
Buttons		确定消息对话框上显示的按钮。
HelpCtx		用来指明显示帮助中的哪个主题。

参数表（暂且这样说吧），应该是重载procedure吧

aCaption		设置消息对话框的标题。
aMsg		显示的消息。
DlgType		显示对话框的类型。
Buttons		确定消息对话框上显示的按钮。
HelpCtx		用来指明显示帮助中的哪个主题。
DefaultButton		用一个预定义的常量指明对话框上可能出现的按钮，该常量已定义。（原帮助中没找到此项，自己加进来的。）
type TMsgDlgBtn = (
mbYes,
mbNo,
mbOK,
mbCancel,
mbAbort,
mbRetry,
mbIgnore,
mbAll,
mbNoToAll,
mbYesToAll,
mbHelp,
mbClose
);

参数表（暂且这样说吧），应该是重载procedure吧

aCaption		设置消息对话框的标题。
aMsg		显示的消息。
DlgType		显示对话框的类型。
Buttons		确定消息对话框上显示的按钮。
HelpKeyword		（原帮助中没找到此项，自己加进来的。）

Description描述

向用户显示一个消息，并接收用户的应答。该函数存在4个变体。第1个，显示一个带标准标题的对话框，第2个、第3个和第4个，允许设置标题。

第3个，允许有一个默认按钮。第4个 ，包含一个帮助关键字，而非使用基于上下文的帮助。

若无第1个参数‘Caption’，则对话框无标题显示。

这是消息对话框的最完整最详尽说明，允许编程者对对话框外观尽可能大的操控性。

参数表明确了对话框类型，其图标非整形常量，其按钮可以指定为用方括号括起来的一组，比如[mbRetry,mbIgnore, mbAbort, mbCancel]。

参数‘HelpCtx’允许使用上下文帮助。

函数返回值是与被单击按钮相同的整形值（参看TControl中常量定义）。

例子

Uses forms,dialogs, lcltype, controls;

procedureTryMessageDlg;

begin

   if MessageDlg('Question', 'Do you wish to Execute?', mtConfirmation,

                 [mbYes, mbNo, mbIgnore],0) = mrYes

   then { Executerest of Program };

  end;

ptvbs

不错，但没有messagebox简捷啊