inputbox的提示信息

Question

你们好:  我用inputbox('title','prompt','default value')
时，如果prompt处是中文的话（6个或以上字符），则会
出现显示不全的现象，不知道为什么？
  如果是英文就没有这个问题。

Answer 1

是中文字体的问题.
修改 Dialogs.pas 文件 的InputQuery函数.在
....
      with Prompt do
      begin
        Parent := Form;
        Caption := APrompt;
后加以下两句
        Font.Charset :=GB2312_CHARSET;
        Font.Size :=9;
        //还可以按需添加 颜色什么的 :)
然后(重新编译这个文件) 在CMD下打以下命令:
dcc32 "C:\Program Files\Borland\Delphi6\Source\Vcl\dialogs.pas"在同一目录找到编译好的Dialogs.dcu 复制到C:\Program Files\Borland\Delphi6\Lib下,
覆盖掉原来的.重新打开Delphi.OK.