Buscar por:

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;