delphi MessageDlg 和 MessageBox的用法

在 Delphi 中，MessageDlg 和 MessageBox 都可以用于顯示消息對話框，但它們在使用方式、功能特性和適用場景等方面存在一些差異。下面分別介紹它們的用法。

1. MessageDlg 函數

1.1 所在單元

MessageDlg 函數位于 Dialogs 單元。

1.2 函數原型

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

1.3 參數說明

• Msg：要顯示的消息文本。
• DlgType：對話框的類型，是 TMsgDlgType 枚舉類型，常見取值有：
  • mtWarning：警告消息。
  • mtError：錯誤消息。
  • mtInformation：信息消息。
  • mtConfirmation：確認消息。
  • mtCustom：自定義消息。
• Buttons：對話框中顯示的按鈕集合，是 TMsgDlgButtons 類型，常見取值有：
  • mbOK：僅顯示“確定”按鈕。
  • mbOKCancel：顯示“確定”和“取消”按鈕。
  • mbYesNo：顯示“是”和“否”按鈕。
  • mbYesNoCancel：顯示“是”、“否”和“取消”按鈕。
• HelpCtx：幫助上下文編號，一般設為 0。

1.4 返回值

返回用戶點擊的按鈕對應的整數值，例如 mrOK（點擊“確定”）、mrCancel（點擊“取消”）等。

1.5 示例代碼

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Result: Integer;
begin
  Result := MessageDlg('你確定要執行此操作嗎？', mtConfirmation, [mbYes, mbNo], 0);
  if Result = mrYes then
    ShowMessage('你選擇了“是”');
end;

end.

2. MessageBox 函數

2.1 所在單元

MessageBox 函數位于 Windows 單元。

2.2 函數原型

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

2.3 參數說明

• hWnd：對話框所屬窗口的句柄，若為 0 則表示對話框沒有父窗口。
• lpText：要顯示的消息文本。
• lpCaption：對話框的標題。
• uType：對話框的樣式，是一個 UINT 類型的值，可以通過組合不同的標志位來指定，常見標志位有：
  • MB_OK：僅顯示“確定”按鈕。
  • MB_OKCANCEL：顯示“確定”和“取消”按鈕。
  • MB_YESNO：顯示“是”和“否”按鈕。
  • MB_ICONINFORMATION：顯示信息圖標。
  • MB_ICONWARNING：顯示警告圖標。
  • MB_ICONERROR：顯示錯誤圖標。

2.4 返回值

返回用戶點擊的按鈕對應的整數值，例如 IDOK（點擊“確定”）、IDCANCEL（點擊“取消”）等。

2.5 示例代碼

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Result: Integer;
begin
  Result := MessageBox(Handle, '這是一條警告消息！', '警告', MB_OK or MB_ICONWARNING);
  if Result = IDOK then
    ShowMessage('你點擊了“確定”');
end;

end.

3. 兩者對比

• 易用性：MessageDlg 使用更方便，參數采用枚舉類型，語義更清晰；MessageBox 需要組合標志位來設置樣式，相對復雜一些。
• 跨平臺性：MessageDlg 是 Delphi 封裝的函數，具有較好的跨平臺性；MessageBox 是 Windows API 函數，只能在 Windows 平臺使用。
• 功能擴展性：MessageDlg 可以通過 Delphi 的 VCL 框架進行擴展和定制；MessageBox 是底層的 Windows 函數，功能相對固定。

在實際開發中，建議優先使用 MessageDlg，除非有特殊需求需要調用 Windows API。