怎样才能使我的INPUTBOX框的OK，CANCEL安钮变为中文的确定，取消？

Question

去重载一个INPUTBOX.
然后改了这个VCL代码:
   with TButton.Create(Form) do
      begin
        Parent := Form;
        Caption := SMsgDlgOK;//改确定
        ModalResult := mrOk;
        Default := True;
        SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
          ButtonHeight);
      end;
      with TButton.Create(Form) do
      begin
        Parent := Form;
        Caption := SMsgDlgCancel;//改取消
        ModalResult := mrCancel;
        Cancel := True;
        SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15,
          ButtonWidth, ButtonHeight);
        Form.ClientHeight := Top + Height + 13;          
      end;
不知道有没有用???

Answer 1

编写自己程序使用的语言的脚本:菜单 project/language/add
接着按照向导的提示创建CHS目录（选择中文中国后自动创建的目录），并生成
ProjectGroup1.bpg工程，
到最后会有一个translation manager，在左边的resource scripts里面找到
你需要改变的脚本修改就可以，如将"ok"修改成"确定"......

Answer 2

试一试吧，很简单的，而且以后如果需要修改到其他脚本的话直接打开ProjectGroup1.bpg就可以很容易修改。

Answer 3

新建一个Project，打开...\Borland\Delphi6\Source\Vcl\Consts.pas，另存为自己工程目录下的Consts.pas（这是为了保险起见，怕原文件找不回来）。看看Consts.pas，不用我说，你也知道改什么。例如SOKButton = 'OK';改为SOKButton = '确定';改完后，菜单Project\Compile Project1。编译完后，在你的工程目录下会出现一个Consts.dcu，拷贝它覆盖...\Borland\Delphi6\Lib\Consts.dcu。完事，运行你的InputBox, MassegeBox, ShowMessage... 看看。