Delphi中的MessageBox函数用于在应用程序中显示一个消息框，提供一些信息给用户，并等待用户的响应。
MessageBox函数的语法如下：
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;
其中，参数hWnd指定消息框的父窗口句柄，如果设置为0，则消息框将没有父窗口；参数lpText指定消息框中显示的文本内容；参数lpCaption指定消息框的标题栏文本；参数uType指定消息框的样式和按钮。uType参数的取值可以是以下常量的组合：
函数的返回值表示用户的操作结果，可以是以下值之一：
下面是一个使用MessageBox函数的示例：
云服务器
物理服务器
虚拟主机
跨境电商服务器procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageBox(Handle, '确定要执行此操作吗？', '提示', MB_YESNO or MB_ICONQUESTION) = IDYES then
begin
// 执行操作
end;
end;
以上代码将在点击按钮时弹出一个包含提示信息和问号图标的消息框，如果用户点击了“是”按钮，则执行相应的操作。
辰迅云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>