VCLのMessageBox | Object Pascalと僕と

Delphi 12.0を使い始めて、最初に気づいたことは、メッセージダイアログの異変だ。

（なんだか、シンプルになったなー）

そう。MessageDlgからアイコンが消えちゃった！

【もくじ】

１．Delphi 12.0 のメッセージダイアログ
２．MessageBoxがあった！
３．MessageBoxの使い方を学ぶ
４．MessageBoxの使用例
５．ダイアログからの戻り値
６．まとめ
７．お願いとお断り

１．Delphi 12.0 のメッセージダイアログ

今まで（ Delphi 11.2 ）なら･･･

実行すると･･･

System.UITypes を uses してないと･･･

「System.UITypesをusesしなさい」とアドバイスされる（これは 12.0 も同じ）。

Delphi 12.0 では･･･、System.UITypes は、もちろん uses して、

11.2 と同じコードを実行すると･･･

それに、なんかエラーも。

（どうする？）

取り敢えず、Help でVCLのライブラリ・リファレンスを調べてみた。

表示されたリファレンスの下の方に、次の一文を発見！

mtInformation じゃなくて、mtConfirmation だけど「Microsoftは、･･･削除してしまいました。」とある･･･

（これかー T_T ）

mtInformation ではなく、mtConfirmation で試してみると･･･

実行すると･･･

タイトルが「情報」から「確認」に変わるから、mtConfirmation は確かに効いてる。

「このアイコンがメッセージの具体的な種類を明確に表さない」って、んじゃもっと良いアイコンに変更するとか･･･、元々、アイコンはキャプションの補佐的役割を果たしているだけだから、それが「ない」よりは「あった」方が親切だと思うんだけれど･･･。

リファレンスによれば、第２引数に指定可能な値とその意味は次の通り。

Delphi 12.0 の Help の VCL のライブラリ・リファレンスを引用

リファレンスには「以前のダイアログボックスの概観を使用するには、Vcl.Dialogs ユニットの UseLatestCommonDialogs 変数を False に設定しなければなりません。」と但し書きがある。

以前の･･･って、XPの時代のことかな？･･･なんて思いながら、次のように指定して、

実行すると･･･

僕的には「シンプルじゃないのがよかった」ので、
とても「Simple is Best 」的な気持ちにはなれない！

あぁアイコンが欲しい！

もう、二度と･･･

きみに会えないかと思うと。

魂が折れそうなくらいの、さみしさがこみあげて･･･くる。

なんでだよー！

そう思いながら、ついでに mtError も試してみる。すると･･･

「 × 」マークはMicrosoftさん的には、全世界共通「ダメです」って通じるってこと？

mtWarning もやってみた！

黄色の三角形に「ｉ」が表示されたら、世界中の人が「警告」だって思うのかなー☆
Microsoftさん的には、「思う」ってことなんだろうなー。

ともあれ、これで確認できた。「情報」と「確認」がダメなんだ･･･。

でも、ない袖は振れない。

自分専用のダイアログを作るという、奥の手がないわけじゃないけど、それは最終手段。

MessageDlg のかわりになるものは･･･、ShowMessage 以外になんか、なかったっけ？

２．MessageBoxがあった！

ものごころついた時から･･･ってわけじゃないけど、僕はずっと MessageDlg関数を使ってきた。
ダイアログで使用する Font の大きさや色を変えたいなど、余程の理由がない限り、ユーザーに何かを伝えるいちばんの方法は、僕にとっては MessageDlg関数で表示するメッセージだった。

それが ShowMessage ではない最大の理由は、テキストの他にアイコンも表示できるから。

だから、階層化テキストエディターの NaNaTree に書き溜めてきた、さまざまなメッセージの表示方法に関する覚書も、そのほとんどが MessageDlg関数についてのもので、これにかわる代替手段など、これまで僕は考えたこともなかった。

（バージョンアップとかすると、毎回、いろんな落とし穴があるけど･･･）

（今回のも、これまで普通に使ってきたダイアログの仕様変更だもんなー）

（すーぱー困るけど、元に戻してくれるわけないし･･･）

（なんか、代替手段、なかったっけ？）

そう思いながら、NaNaTree に保存した「メッセージ」に関する記録を下のほうへスクロールしてみる。

すると･･･

MessageBoxなる文字が･･･

あんまり使ったことのない、未整理の項目が下の方にあって、その中にMessageBoxという文字を発見。

（ほぼ使った記憶がないけれど、そんな関数もそう言えばあった･･･）

さっそく、Helpを読んで、書き方を確認し、次のコードを実行してみた。

はたして、アイコンは表示されるか？

祈るような気持ちで実行すると･･･

何にも（追加で） uses しなくてイイし、いきなり書いて、すぐ動く！

コレだ！コレ！！

今度からコレで行こう☆

自分でもあきれるくらいの変わり身の早さ･･･

MessageDlg が泣いてるぞ。

愛してたんじゃなかったのかい･･･？

３．MessageBoxの使い方を学ぶ

VCL ライブラリの Help を読んでわかったことは、「MessageBox は、Windows API MessageBox 関数をカプセル化したものである」ということ。

このカプセル化で「具体的に何がどうなったか」と言うと、Windows.MessageBox とした場合には必要であったウィンドウハンドルパラメータが欠けていても、自動的に補完される、つまり、所有者ウィンドウへのハンドルは引数内で指定しなくてもよいということ。

ありがたきしあわせ。

ちなみに、Win32APIのリファレンス（C++）では、次のようになっているが、

int MessageBox(
  [in, optional] HWND    hWnd,
  [in, optional] LPCTSTR lpText,
  [in, optional] LPCTSTR lpCaption,
  [in]           UINT    uType
);

Delphi の Application.MessageBox のリファレンスでは、次のように

function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;

所有者ウィンドウへのハンドルが確かに省略されている。

実際のコードで、Windows.MessageBox とした場合には･･･

procedure TForm1.Button4Click(Sender: TObject);
begin
  Winapi.Windows.MessageBox(Handle, PChar('Do you know Delphi?'), PChar('情報'), MB_OK or MB_ICONINFORMATION);
end;

だったのが、第一引数のHandle は必要なくなり、（ OK ボタンのみの表示でよければ）MB_OK も省略できるようなので、次のように

procedure TForm1.Button3Click(Sender: TObject);
begin
  Application.MessageBox(PChar('Do you know Delphi?'), PChar('情報'), MB_ICONINFORMATION);
end;

･･･とずい分、短くなる。それどころか、PChar型への型変換も省略可能なようで･･･

procedure TForm1.Button5Click(Sender: TObject);
begin
  Application.MessageBox('Do you know Delphi?', '情報', MB_ICONINFORMATION);
end;

型変換も内部で自動的に処理してくれるようだ（このまま実行可能。エラーも、警告も、ヒントも表示されない）。

Good! Gooder! Goodest!

これからは MessageBox で行こう！

４．MessageBoxの使用例

「 i 」マークのアイコンで、OK ボタンのみ表示する場合は、

Application.MessageBox(PChar('メッセージ'), PChar('情報'), MB_ICONINFORMATION);

警告マーク（黄）

Application.MessageBox(PChar('メッセージ'), PChar('警告'), MB_ICONWARNING);

禁止・エラー・停止マーク（赤地に白）

× の意味は、第３引数にSTOPとあるから「停止」が正しいのかな？

Application.MessageBox(PChar('メッセージ'), PChar('禁止'), MB_ICONSTOP);
Application.MessageBox(PChar('メッセージ'), PChar('エラー'), MB_ICONSTOP);

？マーク（青地に白）

Application.MessageBox(PChar('メッセージ'), PChar('質問'), MB_ICONQUESTION);

文字列型の変数を用意して、

var
  strMsg:string;
begin
  strMsg:='メッセージ';
  Application.MessageBox(PChar(strMsg), PChar('情報'), MB_ICONINFORMATION);
end;

別の文字列型変数をさらに代入したり、また、改行を含む表示も、

procedure TForm1.Button2Click(Sender: TObject);
var
  strMsg, strPath:string;
begin
  strPath:='C:\abc\def';
  strMsg:='出力先は次の場所です。' + #13#10 + #13#10 + strPath;
  Application.MessageBox(PChar(strMsg), PChar('情報'), MB_ICONINFORMATION);
end;

複数のボタンを表示。例えば、「はい」・「いいえ」の二択なら、

procedure TForm1.Button3Click(Sender: TObject);
begin
  //Information
  if Application.MessageBox(PChar('Do you know Delphi?'), PChar('情報'), MB_YESNO or MB_ICONINFORMATION) = mrYes then
  begin
    //[はい]が選ばれた時
    Application.MessageBox(PChar('Gooooooooooooood!'), PChar('情報'), MB_ICONINFORMATION);
  end else begin
    //[いいえ]が選ばれた時
    Application.MessageBox(PChar('No!'), PChar('情報'), MB_ICONINFORMATION);
  end;
end;

ユーザーに「キャンセル」も許可するなら、

procedure TForm1.Button4Click(Sender: TObject);
var
  StrMsg: String;
  intRet: Integer;
begin
  StrMsg := 'Do you know Delphi?';
  intRet := Application.MessageBox(PChar(StrMsg), PChar('情報'),
                         MB_YESNOCANCEL or MB_ICONQUESTION);
  if intRet = mrYes then begin
    //[はい]を選択した時の処理

  end else
  if intRet = mrNo then begin
    //[いいえ]を選択した時の処理

  end else
  if intRet = mrCancel then begin
    //[キャンセル]を選択した時の処理
    Application.MessageBox(PChar('ユーザーによる処理のキャンセル'), PChar('情報'), MB_ICONINFORMATION);
  end;
end;

ちなみに「キャンセル」ボタンではなく、ダイアログ右上の「閉じる」ボタンをクリックすると･･･

デフォルトでフォーカスを与えるボタンの指定方法は、第３引数の中で MB_DEFBUTTON3 のように、MB_DEFBUTTON の後ろにフォーカスを与えるボタンの番号を付けて指定する。番号はダイアログに表示するボタンの左から順番に１、２、３、４となるようだ。

第３引数に MB_YESNOCANCEL or MB_DEFBUTTON3 or MB_ICONQUESTION を指定すると、

左から三つめの「キャンセル」ボタンにフォーカスされた状態でダイアログが表示される

数字を付けない MB_DEFBUTTON や、数字を付けても MB_DEFBUTTON0（ゼロ）や MB_DEFBUTTON5 は未定義の識別子エラーになることから、指定可能なボタンの数は１～４の範囲内と決まっているようだ。

MB_DEFBUTTON5 は未定義の識別子エラーになる

「はい・いいえ・キャンセル」の三つボタンを表示する設定で MB_DEFBUTTON4 を指定しても未定義の識別子エラーにはならないし、実行時コンパイラはヒントも警告も表示しないが、フォーカスは最も左のボタンに当たるようだ。

intRet := Application.MessageBox(PChar(StrMsg), PChar('情報'),
                         MB_YESNOCANCEL or MB_DEFBUTTON4 or MB_ICONQUESTION);

MB_DEFBUTTON4 を指定してもエラーにはならない。
MB_DEFBUTTON4 を指定したにもかかわらず、
４つめのボタンがない場合には、最も左のボタンにフォーカスされる。

ってか、四つ目のボタンでナニ？

想像したけど、ちょっと思いつかない。表示できるボタンの種類を調べてみた。

MessageBox に表示できるボタンの種類は全部で七つあるようで、Flags パラメータで指定可能な値は、次の通り（Delphi 12.0 の VCL リファレンスより引用）

値	意味
MB_ABORTRETRYIGNORE	メッセージボックスには、次の 3 つのボタンが配置されます：中止、再試行、無視。
MB_OK	メッセージボックスには、次のボタンが配置されます： OK。これがデフォルトの設定です。
MB_OKCANCEL	メッセージボックスには、次の 2 つのボタンが配置されます： OK、キャンセル。
MB_RETRYCANCEL	メッセージボックスには、次の 2 つのボタンが配置されます：再試行、キャンセル。
MB_YESNO	メッセージボックスには、次の 2 つのボタンが配置されます：はい、いいえ。
MB_YESNOCANCEL	メッセージボックスには、次の 3 つのボタンが配置されます：はい、いいえ、キャンセル。

Flags パラメータで指定可能な値

リファレンスには、さらに「これらの値は、希望する効果を得るため、組み合わせて使うこともできます。」とある。組み合わせるって、どういうこと？

ちなみに、MB_OK と MB_RETRYCANCEL を組み合わせてみると･･･

procedure TForm1.Button5Click(Sender: TObject);
begin
  Application.MessageBox('Do you know Delphi?', '情報', MB_OK or MB_RETRYCANCEL or MB_ICONINFORMATION);
end;

OK と再試行、キャンセル三つのボタンが表示されるのかなー？って思ったけど･･･

これは MB_OK と MB_ABORTRETRYIGNORE を組み合わせても同じで、MB_OK はやはり表示されない。MB_DEFBUTTON4 の役割は何なんだろう？？？

Web上の資料を調べてみた！

MessageBox 関数 (winuser.h)

https://learn.microsoft.com/ja-jp/windows/win32/api/winuser/nf-winuser-messagebox

上記リンク先の説明によれば MB_HELP もあるらしい。

Application.MessageBox('Do you know Delphi?', '情報', MB_OK or MB_HELP or MB_ICONINFORMATION);

実行してみると･･･

ただ、ヘルプをクリックしても、なんにも起きなかったが･･･
（処理を書いてないんだから、当然と言えば、当然）

しかし、戻り値の中に「ヘルプ」に相当する値がない･･･ような気が。上記の資料には「ユーザーが [ヘルプ ] ボタンをクリックするか F1 キーを押すと、 WM_HELPメッセージが所有者に送信されます。」とあったけど、これ以上、追いかけると深みにはまりそうな気がするので、ヘルプに関する勉強は後日それが必要となった時にあらためてすることにして、ここではお茶を濁す。

結局、MB_DEFBUTTON4 の果たす役割はわからずじまい。残念！

それから、MessageBox関数には「すべてはい・すべていいえ」のボタンがないようだ。これもまぁ、それが必要になった時、考えることにする。僕が書くプログラムでそれが必要になることは、まず、ないだろう･･･。

あとわかったことは、「Text パラメータの値はメッセージで、必要なら 255 文字以上になっても構いません。長文メッセージは、メッセージボックスでは自動的に改行されます。」ふむふむ、なるほど。

さらに「Caption パラメータの値はキャプションで、ダイアログボックスのタイトルバー上に表示されます。 Captions は 225 文字より長く指定できますが、改行されません。長文キャプションの場合、メッセージボックスの幅が広げられます。」とのこと。

５．ダイアログからの戻り値

ダイアログからの戻り値は、次の通り（Delphi 12.0 の VCL リファレンスより引用）

定数	値	意味
mrNone	0 なし	ユーザーが終了する前にデフォルト値として使用される
mrOk	idOK	ユーザーが［OK］ボタンで終了した
mrCancel	idCancel	ユーザーが［キャンセル］ボタンで終了した
mrAbort	idAbort	ユーザーが［中止］ボタンで終了した
mrRetry	idRetry	ユーザーが［再試行］ボタンで終了した
mrIgnore	idIgnore	ユーザーが［無視］ボタンで終了した
mrYes	idYes	ユーザーが［はい］ボタンで終了した
mrNo	idNo	ユーザーが［いいえ］ボタンで終了した

ダイアログからの戻り値

６．まとめ

プログラムからユーザーに対してメッセージを表示する方法は、他にもいろいろあるみたいだけれど、MessageBox関数最大の強みは「すべての OS で利用可能」なこと。

OK と、はい・いいえ、キャンセルの各ボタンが利用できれば十分というのであれば、アイコンが表示されなくなった MessageDlg関数のかわりに MessageBox関数が使える。もちろん、ダイアログにアイコンも表示される。

ただ、これまでに書いてきたプログラムを Delphi 12.0 で修正・更新する際にはMessageDlg関数を、MessageBox関数に変更するという、地道な作業が待ってることだけがちょっと気になるが。

まっヒマだから、いいか！

７．お願いとお断り

このサイトの内容を利用される場合は、自己責任でお願いします。ここに記載した内容を利用した結果、利用者および第三者に損害が発生したとしても、このサイトの管理者は一切責任を負えません。予め、ご了承ください。