关于dialogs.pas(30分)

我改了../souce/vcl/dialogs.pas,在inputquery函数中，
将其字体改为宋体小五，按钮改为确定’和‘取消’，
但好象不起作用，用inputquery函数输入时，还是原来的字体及'OK'和'Canel'。
是不是应在什么地方编译一下，请高手指教。

把这个文件重新编译生成dialogs.dcu, 然后放在LIB目录下就行了

我认为将修改后的dialog.pas加到project中比较好,否则把程序拿到别的机器上
编译一下字体就又变回去了.

把修改好的 dialog.pas 放到你的工程目录下，在工程中加入
这个 Unit, 应该就 OK 了。

最彻底的办法：
1、字体：在Graphics.pas里，找 InitDefFontData 做这样的改动：

procedure InitDefFontData;
var
Charset: TFontCharset;
begin
DefFontData.Height := -MulDiv(8, ScreenLogPixels, 72);
if not SysLocale.FarEast then Exit;
Charset := GetDefFontCharset;
case Charset of
SHIFTJIS_CHARSET:
begin
DefFontData.Name := '俵俽 俹僑僔僢僋';
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;
显然，这段源代码是为SHIFTJIS_CHARSET语言环境编写的，没有专为中国汉字编写，
不知是不是Delphi的BUG?
经过这样的改动，以后程序中调用的ShowMessage、InputQuery、InputBox等等
函数显示的汉字和操作系统界面一致（即汉字）。
2、关于Ok、Cancel等英文字。
在Consts.Pas中，是所有提示的英文，改成汉字后，编译即可。
以上两点是一劳永逸的事。

哈，才30分，少了点。不过，你又运气好，我为这个问题写个一个
myInputQuery()函数。你看看吧，如果再不明白。嘿，我就没招了。 ^-^

以下函数来自我的单元MyUnit.pas，调用该函数
无需申请dialogs.pas单元。
=============================================
//供MyInputQuery内部调用
function GetAveCharSize(Canvas: TCanvas): TPoint;
var
I: Integer;
Buffer: array[0..51] of Char;
begin
for I := 0 to 25 do Buffer := Chr(I + Ord('A'));
for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a'));
GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result));
Result.X := Result.X div 52;
end;

// 一个调整了字体的查询对话框
function MyInputQuery(const ACaption, APrompt: string;var Value: string): Boolean;
var
Form: TForm;
Prompt: TLabel;
Edit: TEdit;
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
begin
Result := False;
Form := TForm.Create(Application);
with Form do
try
Canvas.Font := Font;
DialogUnits := GetAveCharSize(Canvas);
BorderStyle := bsDialog;
Caption := ACaption;
ClientWidth := MulDiv(180, DialogUnits.X, 4);
ClientHeight := MulDiv(63, DialogUnits.Y, 8);
Position := poScreenCenter;
Prompt := TLabel.Create(Form);
with Prompt do
begin
Parent := Form;
//ADD By Aiming
Font.Name := 'Times New Roman';
Font.Size := 9;
layout := tlCenter;
//change By Aiming
AutoSize := False;
Left := MulDiv(8, DialogUnits.X, 4);
Top := 0;
Width := Muldiv(180-2*8,DialogUnits.X,4);
Height := Muldiv(18,DialogUnits.Y,8); // _EDIT.Top := MulDiv(19, DialogUnits.Y, 8);
WordWrap := True;
{
AutoSize := True;
Top := MulDiv(8, DialogUnits.Y, 8);
Left := MulDiv(8, DialogUnits.X, 4);
}
Caption := APrompt;
end;
Edit := TEdit.Create(Form);
with Edit do
begin
Parent := Form;
Left := Prompt.Left;
Top := MulDiv(19, DialogUnits.Y, 8);
Width := MulDiv(164, DialogUnits.X, 4);
MaxLength := 255;
Text := Value;
SelectAll;
end;
ButtonTop := MulDiv(41, DialogUnits.Y, 8);
ButtonWidth := MulDiv(50, DialogUnits.X, 4);
ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
with TButton.Create(Form) do
begin
Parent := Form;
//ADD By Aiming
Font.Name := 'Times New Roman';
Font.Size := 9;
//Change by Aiming
Caption := '确认';
//Caption := SMsgDlgOK;
ModalResult := mrOk;
Default := True;
SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
ButtonHeight);
end;
with TButton.Create(Form) do
begin
Parent := Form;
//ADD By Aiming
Font.Name := 'Times New Roman';
Font.Size := 9;
//Change by Aiming
Caption := '放弃';
//Caption := SMsgDlgCancel;
ModalResult := mrCancel;
Cancel := True;
SetBounds(MulDiv(92, DialogUnits.X, 4), ButtonTop, ButtonWidth,
ButtonHeight);
end;
if ShowModal = mrOk then
begin
Value := Edit.Text;
Result := True;
end;
finally
Form.Free;
end;
end;

在consts.pas中改变常两，把所有的OK改变为确定....
在Graphics.pas中改变字体
然后从新编译，就OK了，也可以在自己的项目中加入：
view-project manager-Add

谢谢！！！