デルファイでメッセージボックスを使用する方法は何ですか

2年 ago
芽依, 雨夜
1 minute

DelphiのMessageBox関数を使えば、アプリケーション内でメッセージボックスを表示して、ユーザーに情報を提供したり、ユーザーの反応を待機することができます。

MessageBox関数の構文は次のようになります。

ネイティブな日本語でパラフレーズしてください。1つの選択肢のみが必要です。関数 MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;

なお、引数hWndは、メッセージボックスの親ウィンドウのハンドルを指定し、0を指定すると親ウィンドウを持たないメッセージボックスとなります。引数lpTextは、メッセージボックスに表示される文章を指定します。引数lpCaptionは、メッセージボックスのタイトルバーに表示される文字列を指定します。引数uTypeは、メッセージボックスのスタイルやボタンを指定します。uType引数は、以下の定数の組み合わせを指定できます。

  1. OK：はいボタン付きメッセージボックスを表示する。
  2. MB_OKCANCEL：了解とキャンセルボタンがついたメッセージ ボックスを表示する
  3. MB_YESNO: 「はい」と「いいえ」ボタンを含むメッセージボックスを表示する
  4. MB_YESNOCANCEL： 「はい」・「いいえ」・「キャンセル」の 3 つのボタンがあるメッセージボックスを表示
  5. 「中止」「再試行」「無視」ボタンを含むメッセージボックスを表示する：MB_ABORTRETRYIGNORE
  6. 「再試行」と「キャンセル」のボタンがあるメッセージボックスを表示
  7. MB_ICONWARNING：警告アイコンを含むメッセージボックスを表示します
  8. MB_ICONERROR：エラーアイコン付きのメッセージボックスを表示する
  9. MB_ICONINFORMATION：情報アイコンの入ったメッセージボックスを表示します
  10. MB_ICONQUESTION：疑問符アイコンを持つメッセージボックスを表示する

関数の返り値はユーザーの操作結果を表し、次のいずれかの値となります：

  1. ユーザーは「OK」ボタンを押しました
  2. IDキャンセル：ユーザーが「キャンセル」ボタンをクリックしました
  3. ユーザーが「はい」ボタンをクリックしました
  4. ユーザーが「いいえ」ボタンをクリックした
  5. ユーザーが「中止」ボタンをクリックしました。
  6. ユーザーは「再試行」ボタンをクリックした
  7. ID無視：ユーザーは「無視」ボタンをクリックしました

例えばMessageBox関数を使用しています：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageBox(Handle, '确定要执行此操作吗？', '提示', MB_YESNO or MB_ICONQUESTION) = IDYES then
  begin
    // 执行操作
  end;
end;

ボタンクリック時に疑問符アイコン付きのヒントメッセージを持つメッセージボックスをポップアップ表示します。ユーザーが「はい」ボタンをクリックした場合、対応する処理を実行します。

bannerAds