Buscar

Apenas Números com Função

Código

// Codigo das teclas para facilitar a compreensão
//  #13 = Enter
//  #8  = Backspace
//  #9  = TAB
//  #37 = Arrowleft
//  #39 = Arrowrigth
//  #46 = Delete


//cria essa funcao

function numero (tecla: Char):Char;
  begin
    if not(tecla in['0'..'9',#13, #8, #9, #37, #39, #46]) then
     begin
      Result := #0;
     end
     else
      Result := tecla;
  end;

//chama ela no evento onkeypress do campo onde desejar somente números

procedure Tfrmcadclientes.edttelefoneKeyPress(Sender: TObject; var Key: Char);
  begin
     Key := numero(key);
  end;

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 05/01/11
Por: Jonas Portela
Visualizada: 3311 vezes

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