Application.MessageBox 「いいえ」をデフォルト

解決

---

「Application.MessageBox」で「MB_YESNO」などを使ったときのことです。
複数のボタンのうち、デフォルトを「いいえ」など右側のボタンにしたいのですが、そういった方法はありますか？
または代用の手段はありますか？
ご教授ください。

編集    削除

---

https://www.petitmonte.com/bbs/answers?question_id=1229
ではどうでしょう？

編集    削除

---

http://www2.big.or.jp/~osamu/Delphi/Tips/search.cgi#0238.txt
でどうですか？

編集    削除

---

リンクが不十分でしたね。
http://www2.big.or.jp/~osamu/Delphi/Tips/search.cgi#0238.txt
のDelphi Tipsの中で、MessageBoxで検索してください。
Win32APIの引数で可能です。

編集    削除

---

Application.MessageBox('プログラムを終了します', '確認', 65+mb_DefButton2);

編集    削除

---

if Application.MessageBox(PChar('いいですか？'),
                            '確認',
                            MB_YESNO or MB_ICONQUESTION or
                            MB_DEFBUTTON2 or MB_SYSTEMMODAL) = IDYES then begin
    ShowMessage('YES');
  end;

編集    削除

---

詳しくはここで。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpwinui/html/_win32_messagebox.asp

編集    削除

---

通りすがりさん、HOtaさん、@enumさん、deldelさん、ありがとうございます。
併せて、返信が遅くなりまして、すみませんでした。
DefButton2にて解決しました、大変助かりました。
ありがとうございました。

通りすがりさん > messageDlgで検索していませんでした、次回気をつけたいと思います。

編集    削除

---

書き込みテスト

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。