Forçar Digitação de Números
Olá, procurei mas naum achei um tópico com isso.. alguem sabe como faço pra ´forçar´ o usuário a digitar somente números num TEdit?
Como desabilito as outras teclas??
Allan Elias Ramos :wink:
Como desabilito as outras teclas??
Allan Elias Ramos :wink:
Aersoftware
Curtidas 0
Respostas
Wcprog
07/06/2003
use o codigo no evento KeyPress
begin
if not (key in[´1´..´9´,#8]) then
key := 0;
end;
atenciosamente
Walbert Castro
wcprog@bol.com.br
begin
if not (key in[´1´..´9´,#8]) then
key := 0;
end;
atenciosamente
Walbert Castro
wcprog@bol.com.br
GOSTEI 0
Aersoftware
07/06/2003
Grato wcprog... funcionou perfeito, só tenho uma dúvida.. pq akele ´#8´?? qual a função dele?
Allan Elias Ramos :wink:
Allan Elias Ramos :wink:
GOSTEI 0
Jose Almeida
07/06/2003
Assim tambem funciona.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not ( Key In [#8, ´0´..´9´,´-´,´,´] ) then Abort;
end;
Aqui vc pode digitar ´ - ´ e virgulas.
A função do 8 e permitir o uso do Back Space.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not ( Key In [#8, ´0´..´9´,´-´,´,´] ) then Abort;
end;
Aqui vc pode digitar ´ - ´ e virgulas.
A função do 8 e permitir o uso do Back Space.
GOSTEI 0
Aersoftware
07/06/2003
Hmm... valeu Jose.. :wink:
Allan Elias Ramos :wink:
Allan Elias Ramos :wink:
GOSTEI 0