Fórum Como Aceitar somente Números e Teclas ESPECIAIS #271501
08/03/2005
0
Oi Pessoal,
Abaixo segue minha rotina que faz com que somente numeros entrem em um determinado campo. O Problema é que esta rotina elimina fuñções, como por exemplo o BACKSPACE para que eu possa fazer correções.
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in [´0´..´9´]) then
Key:=#0;
end;
Alguém tem uma sugestão melhor? :)
Obrg.
Alex
Abaixo segue minha rotina que faz com que somente numeros entrem em um determinado campo. O Problema é que esta rotina elimina fuñções, como por exemplo o BACKSPACE para que eu possa fazer correções.
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in [´0´..´9´]) then
Key:=#0;
end;
Alguém tem uma sugestão melhor? :)
Obrg.
Alex
Alexsandro
Curtir tópico
+ 0
Responder
Posts
08/03/2005
Lucianopimenta
Adicione o código do BackSpace , se não me é #8.
if not(key in [´0´..´9´, 8]) then
Key:=0;
if not(key in [´0´..´9´, 8]) then
Key:=0;
Responder
Gostei + 0
08/03/2005
Alexsandro
Obrigado pela Dica Luciano.
mas uma questão: Não seria melhor eu modificar a máscara? Display Format ou EDIT MASK?
Alex
mas uma questão: Não seria melhor eu modificar a máscara? Display Format ou EDIT MASK?
Alex
Responder
Gostei + 0
08/03/2005
Rodc
O melhor é usar o Keypress mesmo. Adicione os códigos abaixo:
#8 - backspace
9 - tab
13 - enter
3 - Ctrl+C
22 - Ctrl+V
27 - ESC
#8 - backspace
9 - tab
13 - enter
3 - Ctrl+C
22 - Ctrl+V
27 - ESC
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)