メッセージボックス表示文字について

解決

どなたか 2007-10-26 02:04:02 No: 28107

メッセージボックスの表示文字について

開発環境（win2000、delphi2006）にてメッセージを出力すると
タイトル「確認」
はいボタン「はい(Y)」
いいえボタン「いいえ(N)」

実行環境（winXP）にてメッセージを出力すると
タイトル「Confirm」
はいボタン「Yes」
いいえボタン「No」

と、表示が変わってしまうのですが、実行環境に何か不足している物
があるか・・・知ってる方いたら教えてくだい、お願いします。

風来坊 2007-10-26 07:15:04 No: 28108

そのXPが英語版だからじゃないの？

どなたか 2007-10-26 07:39:12 No: 28109

風来坊さん
ありがとうございます、英語版ではありません
QR4を使用している実行EXEのみがなってしまうのです
他は正しく出力されています。

deldel 2007-10-26 17:47:00 No: 28110

どういうコードでしょうか？

deldel 2007-10-26 19:22:36 No: 28111

以下のようなのはどうでしょうか？
これなら環境に依存しないと思いますが。

function f_iYesNoMessageBox(saCap, saText: AnsiString): integer;
var
  MsgDlg: TForm;
begin
  MsgDlg := CreateMessageDialog(saText, mtConfirmation, [mbYes, mbNo]);
  with MsgDlg do begin
    try
      Caption := saCap;
      TButton(Components[2]).Caption := 'オーケー(&Y)';
      TButton(Components[3]).Caption := 'ダメ(&N)';
      Result := ShowModal;
    finally
      Free;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if f_iYesNoMessageBox('終了確認', '終了ＯＫ？') = mrYes then Close;
end;

どなたか 2007-10-26 22:19:23 No: 28112

deldelさん
ありがとうございます、上記のような手法で対応できましたが
ソースに修正を加えないで対応するには
なんらかの環境の相違点をみつけるしかないのですかね？

どなたか 2007-10-29 18:21:15 No: 28113

QR4が英語版だからみたいです