Fórum Bloqueando a inserção de alguns caracteres... #340023
07/04/2007
0
Como faço para permitir a entrada dos seguintes caracteres em um componente TDBEdit: Caracteres de A à W e os números de 0 à 9?
Outros caracteres não poderam ser aceitos como por exemplo: *,-,.,/, etc...
Outros caracteres não poderam ser aceitos como por exemplo: *,-,.,/, etc...
Carlaisoares
Curtir tópico
+ 0
Responder
Posts
07/04/2007
Catunda
Insira o codigo abaixo no evento OnKeyPress do DBEdit.
if (Key=Chr(vk_clear))or(Key=Chr(vk_escape)) then Exit;
if (not(Key in [´0´..´9´]))and(not(Key in [´A´..´W´])) then
begin
ShowMessage(´Somente Números e Letras !!´);
Key:=#0;
end;
if (Key=Chr(vk_clear))or(Key=Chr(vk_escape)) then Exit;
if (not(Key in [´0´..´9´]))and(not(Key in [´A´..´W´])) then
begin
ShowMessage(´Somente Números e Letras !!´);
Key:=#0;
end;
Responder
Gostei + 0
07/04/2007
Edilcimar
o exemplo dado é bom, porém impede a digitação de enter, tab, backspace, que teriam que ser colocados na função
Responder
Gostei + 0
08/04/2007
Carlaisoares
Resolvido o problema.
Obrigado aos amigos Catunda e Edilcimar.
Obrigado aos amigos Catunda e Edilcimar.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)