原文:如何实现“中文版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”了。
to jjj 你那招好像在我那里是一样的??? http://www.csdn.net/expert/Topic/45147.shtm
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.
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编译执行你的程序,哈!汉化成功...
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”了。
你那招好像在我那里是一样的???
http://www.csdn.net/expert/Topic/45147.shtm
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.