定义一个变量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的效果,并可防密码查看器查看