Bloqueando a inserção de alguns caracteres...
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
Curtidas 0
Respostas
Catunda
07/04/2007
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;
GOSTEI 0
Edilcimar
07/04/2007
o exemplo dado é bom, porém impede a digitação de enter, tab, backspace, que teriam que ser colocados na função
GOSTEI 0
Carlaisoares
07/04/2007
Resolvido o problema.
Obrigado aos amigos Catunda e Edilcimar.
Obrigado aos amigos Catunda e Edilcimar.
GOSTEI 0