メッセージボックスのボタン名をカスタマイズするには？ (ID:40531)

名前

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

本文 今回は諸事情により、Delphiで良ければ 餡の種類は二つ。 (つぶあん) リソースの文字列を直接書き換える。 キャンセルボタンのCaption文字列を定義しているソース(Consts.pas)を プロジェクトのフォルダにコピーして、resourcestring中の該当する文字列を変更。 resourcestring // SMsgDlgCancel = 'キャンセル'; SMsgDlgCancel = '強制停止'; (こしあん) プログラムで変更する。 private procedure SpecialMsg(var Msg: TMessage); message WM_APP+100; end; implementation procedure TForm1.Button1Click(Sender: TObject); begin PostMessage(Handle, WM_APP+100, 0, Integer(PChar('強制停止'))); MessageDlg('ボタン名を変更したけど、いいかな？', mtConfirmation, [mbOk, mbCancel], 0); end; procedure TForm1.SpecialMsg(var Msg: TMessage); var hwP, hwC: HWND; begin hwP := FindWindow(nil, '確認'); hwC := FindWindowEx(hwP, 0, nil, 'キャンセル'); //SendMessage(hwC, WM_SETTEXT, 0, Integer(PChar('強制停止'))); SendMessage(hwC, WM_SETTEXT, 0, Msg.LParam); end;