Problema com Mascara

Delphi

16/04/2007

Ola Pessoal,

Tenho um dbgrid onde quero é listado uma coluna com senha...

Defini a propriedade ´PasswordChar´ igual a ´*´...
Até ai tudo bem, mas quando clico com o mouse na coluna do grid, a senha é listada sem a mascara, ou seja, é possivel ver os caracteres da senha...Como faço para resolver essa situação ?


Fernando Piccini

Fernando Piccini

Curtidas 0

Respostas

Catunda

Catunda

16/04/2007

Mas para que listar o campo da senha já que ela não deve ser lida?
Se for o caso de incluir ou alterar a mesma vc pode chamar uma tela de manutenção da mesma com dois edits um pra senha outro pra confirmação. Nestes dois edits vc utiliza sua mascara e pronto.


GOSTEI 0
Fernando Piccini

Fernando Piccini

16/04/2007

Até concordo Catunda, porém o sistema ja esta todo implementado dessa forma...devido a isto preciso mascarar esta coluna de senha no dbgrid...

estou precisando disso

vlw


GOSTEI 0
Marco Salles

Marco Salles

16/04/2007

desculpe-me , so para entender melhor sua dívida

Defini a propriedade ´PasswordChar´ igual a ´*´...


esta propriedade que voce se refere é de quem ????

ate o momento so me recordo da classe tcustomedit que tem esta propriedade e claro de todas as outras que dela descende

obrigado....


GOSTEI 0
Catunda

Catunda

16/04/2007

Sugiro, então, que vc utilize uma fonte não legivel como por exemplo:

Estrangelo Edessa
MS Outlook
MV Boli

as três fontes acima mostram qualquer caractere como um simples quadrado na tela.


GOSTEI 0
Fernando Piccini

Fernando Piccini

16/04/2007

Efetuar o tratamento mudando a fonte não é a melhor solução, pois supomos que o cliente que utiza-se de meu sistema não possuir a mesma!!?? Não ira funcionar...também utilizamos um padrão ou seja, para senha utilza-se ***** ´Asterisco´....


Então como posso resolver isso?


GOSTEI 0
Marco Salles

Marco Salles

16/04/2007

desculpe-me , so para entender melhor sua dívida Citação: Defini a propriedade ´PasswordChar´ igual a ´*´... esta propriedade que voce se refere é de quem ???? ate o momento so me recordo da classe tcustomedit que tem esta propriedade e claro de todas as outras que dela descende


Ate o momento voce nem respondeu o post que lhe enviei...

Mas se quiseres mesmo uma saida , então mesmo sem considerar o meu post então :arrow:

No Evento [b:e3e186d1a4]OnGetText do Tfield [/b:e3e186d1a4]Senha digite:

procedure TForm1.SuDataSetSenhaGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin text:=´******´; end;



GOSTEI 0
Fernando Piccini

Fernando Piccini

16/04/2007

Ola Marco,

Testei a rotina a qual descreveu no histórico anterior e funcionou...

Muito obrigado

:D


GOSTEI 0
Fernando Piccini

Fernando Piccini

16/04/2007

Ola Marco,

Só mais uma coisa, tenho um probleminha ainda....

Minha query é criada em tempo de execução...

A questão agora é: Como adicionar este campo na query e associar o evento GetText nela em tempo de execução???

Em que momento devo criar/adicionar este campo/TField na query??

vlw


GOSTEI 0
Marco Salles

Marco Salles

16/04/2007

vamos ve

Voce deve definir um Procedimento com os mesmo parametros do evento
OnGetText na seccção Private do Formulário

Na criação da query voce faz assim

SuaQuery.FieldByName(´NomeDoSeuTfield´).OnGetTex:=NomeDoProcedimemtoDeFinidoNoForm


Acho que assim Funfa


GOSTEI 0
POSTAR