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;
以上代碼將在點擊按鈕時彈出一個包含提示信息和問號圖標的消息框,如果用戶點擊了“是”按鈕,則執行相應的操作。