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

解決

BCT  2005-07-21 16:16:22  No: 16490  IP: 192.*.*.*

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

編集 削除
通りすがり  2005-07-21 17:15:27  No: 16491  IP: 192.*.*.*

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

編集 削除
HOta  2005-07-21 17:34:56  No: 16492  IP: 192.*.*.*

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

編集 削除
HOta  2005-07-22 03:28:07  No: 16493  IP: 192.*.*.*

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

編集 削除
@enum  2005-07-22 06:06:19  No: 16494  IP: 192.*.*.*

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

編集 削除
deldel  2005-07-22 08:53:54  No: 16495  IP: 192.*.*.*

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

編集 削除
deldel  2005-07-22 08:56:40  No: 16496  IP: 192.*.*.*

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

編集 削除
BCT  2005-07-22 12:09:24  No: 16497  IP: 192.*.*.*

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

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

編集 削除
＾＾  2005-07-22 16:30:55  No: 16498  IP: 192.*.*.*

書き込みテスト

編集 削除