温馨提示×

delphi Messagebox的用法是什么

小亿
287
2023-11-08 12:23:57
栏目: 编程语言

Delphi中的MessageBox函数用于在应用程序中显示一个消息框,提供一些信息给用户,并等待用户的响应。

MessageBox函数的语法如下:

function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;

其中,参数hWnd指定消息框的父窗口句柄,如果设置为0,则消息框将没有父窗口;参数lpText指定消息框中显示的文本内容;参数lpCaption指定消息框的标题栏文本;参数uType指定消息框的样式和按钮。uType参数的取值可以是以下常量的组合:

  • MB_OK:显示一个包含“确定”按钮的消息框
  • MB_OKCANCEL:显示一个包含“确定”和“取消”按钮的消息框
  • MB_YESNO:显示一个包含“是”和“否”按钮的消息框
  • MB_YESNOCANCEL:显示一个包含“是”、“否”和“取消”按钮的消息框
  • MB_ABORTRETRYIGNORE:显示一个包含“中止”、“重试”和“忽略”按钮的消息框
  • MB_RETRYCANCEL:显示一个包含“重试”和“取消”按钮的消息框
  • MB_ICONWARNING:显示一个包含警告图标的消息框
  • MB_ICONERROR:显示一个包含错误图标的消息框
  • MB_ICONINFORMATION:显示一个包含信息图标的消息框
  • MB_ICONQUESTION:显示一个包含问号图标的消息框

函数的返回值表示用户的操作结果,可以是以下值之一:

  • IDOK:用户点击了“确定”按钮
  • IDCANCEL:用户点击了“取消”按钮
  • IDYES:用户点击了“是”按钮
  • IDNO:用户点击了“否”按钮
  • IDABORT:用户点击了“中止”按钮
  • IDRETRY:用户点击了“重试”按钮
  • IDIGNORE:用户点击了“忽略”按钮

下面是一个使用MessageBox函数的示例:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageBox(Handle, '确定要执行此操作吗?', '提示', MB_YESNO or MB_ICONQUESTION) = IDYES then
  begin
    // 执行操作
  end;
end;

以上代码将在点击按钮时弹出一个包含提示信息和问号图标的消息框,如果用户点击了“是”按钮,则执行相应的操作。

0