代码+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的效果,并可防密码查看器查看

没有更多推荐了,返回首页