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