代码+Edit实现MaskEdit功能，并且防密码查看器查看

定义一个变量password,在Edit的KeyPress事件中写：

procedure TFLogin.EdtPasswordKeyPress(Sender: TObject; var Key: Char);
begin
    If Key <> #13 Then
    Begin
        Password := Password + Key;
        Key := '*';
    End
    Else
        Bt_LoginClick(Bt_Login);

end;

 

可以实现MaskEdit的效果，并可防密码查看器查看