Buscar

Obrigar o usuário a digitar somente números

Código

Obrigar a digitar somente números...

procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
var
   s:string;
begin
   s := char(key);

   if key = Char(ORD(8)) then
      exit
   else
   if not (s[1] in ['0'..'9']) then
      key := char(nil);
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Periféricos
Adicionada dia: 17/08/07
Por: Danilo Marcos De Souza
Visualizada: 5541 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009