有没弹出输入密码框的函数。如InputBox，但要求输入内容变为星号。

Question

如有函数是什么，我用 PasswordDlg.ShowModal;
说 PasswordDlg还没定义，最好不要自己写个窗口。
最好弹出窗可以输入用户名和密码两个文本框。
如没有能显出密码框的也行

Answer 1

DescriptionUse PasswordDialog to allow the user to enter a password for a password-protected Paradox or dBase table.ASession is the interface of a component that represents the session onto which the user logs in. Typically, this is the interface of a TSession component.If the user clicks OK in the dialog box, PasswordDialog returns true. Otherwise it returns false.Note: When an application opens a Paradox or dBASE table that requires a password, the user is prompted to enter a password unless the Session already has a valid password for that table.
--------------------
上面的介绍可以看到，这个函数的作用比较单一，如果楼主要做程序的登陆的话，最好还是自己做一个登陆窗口把，也不复杂对不对...

Answer 2

将\Borland\Delphi6\Source\Vcl中的dialog.pas单元中InputQuery函数的定义中 
   with Edit do
      begin
后加一句 password='*' 保存；
新建一工程，将dialog.pas加入其中，重新编译，将生成的Dialogs.dcu文件拷贝到\Borland\Delphi6\Lib下，重新运行delphi，使用inputbox函数就行了，就是以后要使用inputbox函数他的edti都用‘*’显示了。只是只有一个密码框,还有就是以后你的InputBox都变成密码框了  ^_^