大家知道，在XP风格下，密码输入时显示如“●●●”圆形状态，那么DELPHI中是如何实现这样的效果呢？
　　在delphi中TEDIT中的passchar是不支持●字符的，只能是显示如＊等字符。那么只有是另寻途经了，首先在EDIT中KeyPress过程，取得用户从键盘输入的字符并把它送到另一个变量中,然后，要将刚刚输入的字符清除（否则会显示出输入的内容），这样既可获取用户输入的内容，又让EDIT控件不显示出来，此时，我们在EDIT控件中加入“●”符号，就可以实现上述的XP风格了。
举例如下：（我们以myInputPwd为存放密码的变量）
procedure TfrmLogin.EDIT1KeyPress(Sender: TObject; var Key: Char);
begin
myInputPwd:=MyInputPwd + Key;
Key:=#0;
EDIT1.Text:=EDIT1.Text +'●';
end;
不过，值得一提的是，这时进行密码校验时，一定要取MyinputPwd这一变量了。