关于汉化对话框的问题

Question

{ 修改<DelphiDir>\Source\Vcl\consts.pas }
//例子:
{159行:改}  SMsgDlgOK = '好'; //原:SMsgDlgOK = 'OK';

Answer 1

1.将Borland\Delphi5\Source\Vcl目录下的CONSTS.PAS文件复制到其他目录.
2.打开consts.pas文件,将其中如SMsgDlgYes = '&Yes';SMsgDlgNo = '&No';所示等号后面内容汉化.
3.在DOS命令行: dcc32 consts.pas 将编译生成consts.dcu文件(dcc32.exe在Borland\Delphi5\Bin目录下,path中已指向).
4.将consts.dcu复制到Borland\Delphi5\Lib目录下覆盖同名文件(注意备份).
5.关闭重新打开delphi编译执行你的程序,哈!汉化成功...

Answer 2

原文：如何实现“中文版delphi”?  我们可以进行如下步骤：
1、修改../source/vcl/dialogs.pas,在inputquery函数中，将其字体改为宋体小五，按钮改为“确定”和“取消”；
2、在graphis.pas里，找initdeffontdata做这样的改动：
procedure inindeffontdata;
var
charset:tfontcharset;
begin
deffontdata.height:=-muldiv(8,screenlogpixels,72);
if not syslocals.fareast then exit;
charset:=getdeffontcharset;
case charset of
shiftjis_charset;
begin'
deffontdata.name:='xxxxxxxxx';
deffontdata.height:=-muldiv(9,screenlogpixels,72);
deffontdata.charset:=charset;
end;
//加写以下语句
gb2312_charset:
begin
deffontdata.name:='宋体';
deffontdata.height:=-muldiv(9,screenlogpixels,72);
deffontdata.charset:=charset;
end;
//修改结束
end;
end;
3、在consts.pas中翻译常见的单词，例如yes,no,ok,cancel等。
经过以上改动，你就拥有了你自己的“中文版Delphi”了。

Answer 3

to jjj
你那招好像在我那里是一样的？？？
http://www.csdn.net/expert/Topic/45147.shtm

Answer 4

unit msgdialog;interface
uses sysutils,windows;
  const
      {第一组:按钮内容选择}
    OKOnly=0;{仅显示"确定"按钮}
    OKCancel=1;{显示"确定"和"取消"按钮}
    AbortRetryIgnore=2;{"中止""重试""放弃"}
    YesNoCancel=3;{"是""否""取消"}
    YesNo=4;{"是"和"否"}
    RetryCancel=5;{"重试""取消"}
    {第二组:显示图标选择}
    Critical=16;{"STOP"图标}
    Question=32;{"?"图标}
    Excalamation=48;{"!"图标}
    Information=64;{"i"图标}
    {第三组:缺省指针位置(激活状态)}
    DefaultButton1=0;{第一按钮}
    DefaultButton2=256;{第二按钮}
    DefaultButton3=512;{第三按钮}
    {第四组:信息框方式}
    ApplicationModal=0;{应用方式}
    SystemModal=4096;{系统方式}function MsgBox(msg: string; mbType: Word; title: string): Word;
implementation
function StrToPch(Str:string):PChar;
var
  a:PChar;
begin
  a:=StrAlloc(Length(Str)+1);
  StrPCopy(a,Str);
  result:=a;
end;
function MsgBox(msg: string; mbType: Word; title: string): Word;
var
  hWnd:word;
  pText,pCaption:Pchar;
begin
  pText:=StrToPch(msg);
  pCaption:=StrToPch(title);
  hWnd:=GetActiveWindow();
  MsgBox:=MessageBox(hWnd,pText,pCaption,mbType);
end;end.