修改VCL源码实现自界说输入对话框

通过修改VCL源码实现自界说输入对话框

在BCB中有两个函数可以实现输入对话框：InputBox和InputQuery，其实InputBox也是挪用了InputQuery，这个函数有几个缺点：

(1).输入对话框上的按钮是英文的。

(2).不能实现星号暗码的结果。

但在实际编程中常常会碰着这样的问题。全是中文的界面和提示，但是在输入对话框中却是英文的按钮，显的有些不协调，并且有时在Win2k下做的措施，换在Win98下的时候，输入对话框中的提示会显示不完整。凡是在Form中可以通过变动默认字体为宋体9号来办理，可是在输入对话框中可不行以呢？谜底是必定的，要领就是：修改VCL源码！

以下要领先容了在BCB 6.0 企业版中通过修改VCL源码实现自界说输入对话框。

1. 在BCB6安装目次的Source\Vcl目次下找到dialogs.pas，并copy一份到你的工程目次下.

2. 打开适才复制过来的dialogs.pas，修改个中的InputQuery函数代码(1857-1927行)：

修改后的代码如下：

function InputQuery(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
　　　 Font.Name := '宋体'; // 变动输入对话框窗体的字体为宋体
　　　 Font.Size := 9;　　　// 变动输入对话框窗体的字号为9号
　　　 Canvas.Font := Font;
　　　 DialogUnits := GetAveCharSize(Canvas);
　　　 BorderStyle := bsDialog;
　　　 Caption := ACaption;
　　　 ClientWidth := MulDiv(180, DialogUnits.X, 4);
　　　 Position := poScreenCenter;
　　　 Prompt := TLabel.Create(Form);
　　　 with Prompt do
　　　 begin
　　　　 Parent := Form;
　　　　 Caption := APrompt;
　　　　 Left := MulDiv(8, DialogUnits.X, 4);
　　　　 Top := MulDiv(8, DialogUnits.Y, 8);
　　　　 Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);
　　　　 WordWrap := True;
　　　 end;
　　　 Edit := TEdit.Create(Form);
　　　 with Edit do
　　　 begin
　　　　 Parent := Form;
　　　　 Left := Prompt.Left;
　　　　 Top := Prompt.Top + Prompt.Height + 5;
　　　　 Width := MulDiv(164, DialogUnits.X, 4);
　　　　 MaxLength := 255;
　　　　 Text := Value;
　　　　 if Text = 'Password' then　// 假如传进来的默认字符串是"Password"
　　　　　 PasswordChar := '*';　　 // 则将输入框酿成星号样式的
　　　　 SelectAll;
　　　 end;
　　　 ButtonTop := Edit.Top + Edit.Height + 15;
　　　 ButtonWidth := MulDiv(50, DialogUnits.X, 4);
　　　 ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
　　　 with TButton.Create(Form) do
　　　 begin
　　　　 Parent := Form;
　　　　 Caption := '确定'; // 确定按钮，原先的标题是"OK"
　　　　 ModalResult := mrOk;
　　　　 Default := True;
　　　　 SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
　　　　　 ButtonHeight);
　　　 end;
　　　 with TButton.Create(Form) do
　　　 begin
　　　　 Parent := Form;
　　　　 Caption := '打消'; // 打消按钮，原先标题为"Cancel"
　　　　 ModalResult := mrCancel;
　　　　 Cancel := True;
　　　　 SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15,
　　　　　 ButtonWidth, ButtonHeight);
　　　　 Form.ClientHeight := Top + Height + 13;　　　　 
　　　 end;
　　　 if ShowModal = mrOk then
　　　 begin
　　　　 Value := Edit.Text;
　　　　 Result := True;
　　　 end;
　　 finally
　　　 Form.Free;
　　 end;
end;
　  修改完成今后生存这个文件。
3. 在当前工程中插手适才修悔改的dialogs.pas，详细操纵：Project-->Add to Project-->找到该文件，添加进来即可。
4. 配置一下工程选项：Project-->Options-->Packages-->打消Build with runtime packages前面的对钩，确定。
5. 在措施中插手利用InputBox或InputQuery函数的代码。以下为例子：
//---------------------------------------------------------------------------
// by ccrun(老妖)(www.ccrun.com)
// 普通的输入对话框结果
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　　 String strTemp = "";
　　 InputQuery("标题", "提示", strTemp);
　　 ShowMessage(strTemp);
}
//---------------------------------------------------------------------------
// 星号暗码的输入对话框结果，与上面代码差异的是，将Default字符串设为Password
// 就可以实现星号暗码了。这样做是为了防备所有的输入对话框全酿成星号。
// 这里的"Password"要与适才修改dialogs.pas中的字符相对应。
void __fastcall TForm1::Button2Click(TObject *Sender)
{
　　 String strTemp = "Password";
　　 InputQuery("标题", "提示", strTemp);
　　 ShowMessage(strTemp);
}

6. 编译工程并运行。就可以看到中文按钮，星号暗码的输入对话框了。