PassWordChar no TEdit mostrar/esconder senha

Delphi

10/08/2014

Olá,
to com uma questão.
em run-time, em tempo de execução meu programa tem um icone para mostrar e esconder senha.
para esconder a senha, ele coloca um asterisco no lugar, uso esta linha de comando.:
edit1.passwordchar:='*';

porém, para mostrar a senha novamente, o certo seria colocar
edit1.passwordchar:='#0';

Até porquê #0 é o padrão do password char no TEdit.
Porém, nota-se que char é do tipo que armazena apenas um caractere, com isso, não posso executar o comando que citei acima.

O que fazer para mostrar a senha?
Alexandre

Alexandre

Curtidas 0

Melhor post

Valquiria Silva

Valquiria Silva

11/08/2014

Alexandre, bom dia.

Retire os apóstrofos do comando para voltar a mostrar os caracteres.

      Edit1.PasswordChar:= #0;
GOSTEI 1

Mais Respostas

Alexandre

Alexandre

10/08/2014

upup
GOSTEI 0
Alexandre

Alexandre

10/08/2014

upup,
desculpe o Spam, não quero fazer gambiarras no programa!
até mais!
GOSTEI 0
Alexandre

Alexandre

10/08/2014

Ah? bah..
Grato!
GOSTEI 0
Willian Bortolini

Willian Bortolini

10/08/2014

você tem que atualizar o EchoMode tambem de eemPassword para eemNormal.

procedure Tfrm_PessoaVenda.btnOcultarSenhaClick(Sender: TObject);
begin
edtSenha.Properties.PasswordChar := '*';
edtSenha.Properties.EchoMode := eemPassword;
end;

procedure Tfrm_PessoaVenda.btnVisualizarSenhaClick(Sender: TObject);
begin
edtSenha.Properties.PasswordChar := #0 ;
edtSenha.Properties.EchoMode := eemNormal;

end;
GOSTEI 0
POSTAR