★★如何更改InputBox的字体及将其中的英文改为中文？

Question

大家知道delphi中的inputbox、inputquery、messagedlg什么的显示的中文字体很难看并且按钮上显示的英文，如何将他们的字体及将其中的英文改为中文呢？有没有可替代他们的方法、控件什么的？

Answer 1

看源码，然后改之即可
一般都是定义在consts.pas资源文件里的，查到对应的定义，修改后重新编译或拷贝到工程目录下

Answer 2

已经说的很清楚了
难道让我把consts.pas改一遍给你发过去？
再说我也不知道你要改成什么啊

Answer 3

可是字体无法改啊，并且没有找到inputbox、inputquery相关的字符串，messagedlg倒是可以的！

Answer 4

inputbox的创建过程在 delphi6\source\vcl\dialogs.pas的1857行的InputQuery函数中实现。  按钮的字符串就是 SMsgDlgOK和SMsgDlgCancel 在 \vcl\consts.pas的124行。
这些通过跟踪源码可以看到的。

Answer 5

自己作个form代替吧，以后还可以重用。