No evento OnEnter, coloque o seguinte código (assumindo o form como sendo Form1 e o
edit como sendo Edit1):
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Text :=
StringReplace(StringReplace(Edit1.Text, '.', '', [rfReplaceAll]), ',', '.', []);
end;
O peixe foi pescado!
[]s
-----Mensagem original-----
De: Adenes I. Freire Junior [mailto:[EMAIL PROTECTED]
Enviada em: domingo, 12 de setembro de 2004 14:17
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Como tiro uma máscara?
Turma, como faço para tirar a máscara de um edit?
Exemplo:
No edit tenho: 9.456.756,88 um valor com máscara.
O que eu quero é ao clicar no edit ele fique sem máscara: 9546756,88
Adenes I. Freire Junior
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL
PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
