怎么获取application.MessageBox()的返回值？分别有哪些返回值？

anytimer 2004-08-12 05:27:58

怎么获取application.MessageBox()的返回值？分别有哪些返回值？请问以下代码对吗？
if application.MessageBox('删除数据'¸'提示',65)=MB_OK then
begin
edit1.Text:='12';
end;

...全文

157 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

boatzm 2004-08-12

打赏
举报

hoho
超详细的！

insert2003 2004-08-12

打赏
举报

Delphi帮助

anytimer 2004-08-12

打赏
举报

谢谢

kaguo 2004-08-12

打赏
举报

类型如下
mbYes A button with 'Yes' on its face.
mbNo A button the text 'No' on its face.
mbOK A button the text 'OK' on its face.
mbCancel A button with the text 'Cancel' on its face.
mbAbort A button with the text 'Abort' on its face
mbRetry A button with the text 'Retry' on its face
mbIgnore A button the text 'Ignore' on its face
mbAll A button with the text 'All' on its face
mbNoToAll A button with the text 'No to All' on its face
mbYesToAll A button with the text 'Yes to All' on its face

mbHelp A button with the text 'Help' on its face

kaguo 2004-08-12

打赏
举报

TMsgDlgButtons defines a set of values used by MessageDlg and MessageDlgPos.

Unit

Dialogs

type

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

TMsgDlgButtons = set of TMsgDlgBtn;
const

mbYesNoCancel = [mbYes, mbNo, mbCancel];

mbYesAllNoAllCancel = [mbYes, mbYesToAll, mbNo, mbNoToAll, mbCancel];

mbOKCancel = [mbOK, mbCancel];
mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];
mbAbortIgnore = [mbAbort, mbIgnore];

Description

The TMsgDlgButtons type defines the set of values a button in a message box can have. The TMsgDlgButtons type is used by the MessageDlg and MessageDlgPos functions. The following tables lists the possible values:

Value Meaning

mbYes A button with 'Yes' on its face.
mbNo A button the text 'No' on its face.
mbOK A button the text 'OK' on its face.
mbCancel A button with the text 'Cancel' on its face.
mbAbort A button with the text 'Abort' on its face
mbRetry A button with the text 'Retry' on its face
mbIgnore A button the text 'Ignore' on its face
mbAll A button with the text 'All' on its face
mbNoToAll A button with the text 'No to All' on its face
mbYesToAll A button with the text 'Yes to All' on its face

mbHelp A button with the text 'Help' on its face

In addition, the Dialogs unit defines the following constants for commonly used TMsgDlgButtons values:

Constant Meaning

mbYesNoCancel mbYes, mbNo, and mbCancel
mbYesNoAllCancel mbYes, mbYesToAll, mbNo, mbNoToAll, and mbCancel
mbOKCancel mbOK and mbCancel
mbAbortRetryIgnore mbAbort, mbRetry, and mbIgnore
mbAbortIgnore mbAbort, mbIgnore

Application.MessageBox(PChar(sMsg), PChar(sCap), MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2); ``` 这段代码将会创建一个带有问号图标、两个按钮（“是”和“否”），并且默认焦点在“否”按钮上的对话框。 ...

`MessageBox`在实际开发中有很多用途，如： - 用户确认操作：在用户尝试删除文件或退出程序时，通过`MessageBox`询问用户是否确定。 - 错误处理：当程序遇到错误时，显示错误信息，让用户知道发生了什么。 - 提示...

例如，可以创建一个返回值表示用户选择的枚举类型，然后在主窗体中调用自定义`MessageBox`，并根据返回值更新Label的内容。 4. **显示自定义MessageBox**：在需要弹出提示的地方，使用自定义`MessageBox`替换系统的...

Msg.hwndOwner:=Application.Handle; Msg.hInstance:=hinstance; Msg.lpszText:=lText; Msg.lpszCaption:=lCaption; Msg.dwStyle:=lStyle; Msg.lpszIcon:=lIcon; Msg.dwContextHelpId:=1; Msg....

excelok = excelserver.ConnectToNewObject("excel.application") // 检查返回值，以确保已成功地连接到了 Excel if excelok <> 0 then messagebox("信息提示","连接 EXCEL 失败，请检查计算机中是否安装了EXCEL!...