| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
edifrancl Aprendiz


Registrado: Quarta-Feira, 12 de Setembro de 2012 Mensagens: 173
|
Enviada: Dom Abr 13, 2014 9:20 pm Assunto: Como evitar duas virgulas em um dbedit [resolvido] |
|
|
Boa noite galera! Uso ibdataset com dbedits e gostaria de saber como evitar que o usuario digite duas virgulas num campo de valor numerico! Aproveitando, como mudar a mensagem de erro que aparece quando isso acontece? A mensagem eh em ingles e dessa forma nao fica legal!
Uso IbDataset, Firebird 2.1 e D2010 _________________ "O coração do homem pode fazer planos, mas a resposta certa dos lábios vem do Senhor!" Pv. 16:1 Deus é fiel!
Editado pela última vez por edifrancl em Sáb Abr 19, 2014 5:50 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
joemil Moderador

Registrado: Quinta-Feira, 25 de Março de 2004 Mensagens: 9100 Localização: Sinop-MT
|
Enviada: Seg Abr 14, 2014 8:13 am Assunto: |
|
|
tente algo assim:
no onKeyPress:
| Código: | if Key = ',' then
begin
if Pos(',', Edit1.Text) > 0 then
Key := #0;
end;
|
_________________ <b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
 |
edifrancl Aprendiz


Registrado: Quarta-Feira, 12 de Setembro de 2012 Mensagens: 173
|
Enviada: Sex Abr 18, 2014 7:48 am Assunto: |
|
|
| joemil escreveu: | tente algo assim:
no onKeyPress:
| Código: | if Key = ',' then
begin
if Pos(',', Edit1.Text) > 0 then
Key := #0;
end;
|
|
Funcionou direitinho! Obrigado! Mas quanto a tratar as excecoes do banco, voce sabe como mudar as mensagens que aparecem de ingles para portugues? _________________ "O coração do homem pode fazer planos, mas a resposta certa dos lábios vem do Senhor!" Pv. 16:1 Deus é fiel! |
|
| Voltar ao Topo |
|
 |
|