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

解決

BCT 2005-07-22 01:16:22 No: 16490

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

通りすがり 2005-07-22 02:15:27 No: 16491

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

HOta 2005-07-22 02:34:56 No: 16492

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

HOta 2005-07-22 12:28:07 No: 16493

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

@enum 2005-07-22 15:06:19 No: 16494

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

deldel 2005-07-22 17:53:54 No: 16495

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 17:56:40 No: 16496

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

BCT 2005-07-22 21:09:24 No: 16497

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

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

＾＾ 2005-07-23 01:30:55 No: 16498

書き込みテスト