Edit somente aceitar numeros
Olá meus amigos, boa tarde!
Preciso de ajuda!
Estou tentando fazer com que o meu EdtId receba somente numeros mas não estou conseguindo, não quero fazer pelo evento onkeyprees quero fazer a ação de que quando eu clicar no BtnPesquisar ele reconheça se é numero ou letra. Se for numero tudo bem vai exibir a minha pesquisa, mas se for letra, ao clicar no BtnPesquisar ele me retorna uma mensagem dizendo que "neste campo só é aceitável numeros"
O que eu fiz até agora foi isso, mas não obtive sucesso:
if Trin(EdtId.Text) <> '0'..'9' then
begin
Mensagem('Neste campo só é aceitável numeros!','ERRO');
Exit;
end;
ALGUÉM PODE ME AJUDAR POR FAVOR!
OBRIGADO AMIGOS
Preciso de ajuda!
Estou tentando fazer com que o meu EdtId receba somente numeros mas não estou conseguindo, não quero fazer pelo evento onkeyprees quero fazer a ação de que quando eu clicar no BtnPesquisar ele reconheça se é numero ou letra. Se for numero tudo bem vai exibir a minha pesquisa, mas se for letra, ao clicar no BtnPesquisar ele me retorna uma mensagem dizendo que "neste campo só é aceitável numeros"
O que eu fiz até agora foi isso, mas não obtive sucesso:
if Trin(EdtId.Text) <> '0'..'9' then
begin
Mensagem('Neste campo só é aceitável numeros!','ERRO');
Exit;
end;
ALGUÉM PODE ME AJUDAR POR FAVOR!
OBRIGADO AMIGOS
Giuliano Frederice
Curtidas 0
Melhor post
Jose Medeiros
18/07/2014
bom dia,
Se você esta usando uma versão do delphi de 2010 em diante, é só alterar a propriedade NumbersOnly para True.
Se você esta usando uma versão do delphi de 2010 em diante, é só alterar a propriedade NumbersOnly para True.
GOSTEI 1
Mais Respostas
Fabio Alves
17/07/2014
no onkeypress do Edit
if not (key in ['0'..'9', #8, #27, #32]) then
begin
beep;
key := #0;
end;
Aceita numeros e Enter, Tab
se nao for bloqueia
if not (key in ['0'..'9', #8, #27, #32]) then
begin
beep;
key := #0;
end;
Aceita numeros e Enter, Tab
se nao for bloqueia
GOSTEI 0
Giuliano Frederice
17/07/2014
Obrigado meu amigos, deu certo aqui!!!!
Valeu
Valeu
GOSTEI 0
Fabio Alves
17/07/2014
if not (key in ['0'..'9', ',', '.',#8]) then
begin
key := #0;
Mensagem('Neste campo só é aceitável numeros!','ERRO');
end;
begin
key := #0;
Mensagem('Neste campo só é aceitável numeros!','ERRO');
end;
GOSTEI 0