在delphi中实现密码框“大写锁定打开”的提示

在登录windows时，如果大写锁定打开，且焦点处于密码输入框中，会出现气泡提示信息：“大写锁定打开 保持大写锁定打开可能会使你错误输入密码……”。

实现方式：

 

将edit控件的PasswChar设置成*，并在单元里面加入 uses XPMan。