Delphi中的MessageBox函數(shù)用于在應(yīng)用程序中顯示一個消息框,提供一些信息給用戶,并等待用戶的響應(yīng)。
MessageBox函數(shù)的語法如下:
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;
其中,參數(shù)hWnd指定消息框的父窗口句柄,如果設(shè)置為0,則消息框?qū)]有父窗口;參數(shù)lpText指定消息框中顯示的文本內(nèi)容;參數(shù)lpCaption指定消息框的標(biāo)題欄文本;參數(shù)uType指定消息框的樣式和按鈕。uType參數(shù)的取值可以是以下常量的組合:
函數(shù)的返回值表示用戶的操作結(jié)果,可以是以下值之一:
下面是一個使用MessageBox函數(shù)的示例:
procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageBox(Handle, '確定要執(zhí)行此操作嗎?', '提示', MB_YESNO or MB_ICONQUESTION) = IDYES then
begin
// 執(zhí)行操作
end;
end;
以上代碼將在點擊按鈕時彈出一個包含提示信息和問號圖標(biāo)的消息框,如果用戶點擊了“是”按鈕,則執(zhí)行相應(yīng)的操作。