Fórum Forçar Digitação de Números #165206

07/06/2003

0

Delphi

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:


Aersoftware

Aersoftware

Responder

Posts

07/06/2003

Wcprog

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


Responder

Gostei + 0

07/06/2003

Aersoftware

Grato wcprog... funcionou perfeito, só tenho uma dúvida.. pq akele ´#8´?? qual a função dele?



Allan Elias Ramos :wink:


Responder

Gostei + 0

07/06/2003

Jose Almeida

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.


Responder

Gostei + 0

08/06/2003

Aersoftware

Hmm... valeu Jose.. :wink:



Allan Elias Ramos :wink:


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar