Dbedit -

[Renanbg 1]

Olá pessoal Tenhó uma tabela chamada operações onde gravo tudo que o usuario faz no sistema. Por ex: ao tentar acessar o cadastro de clientes é solicitado operador e senha o campo operador é do tipo Integer na tabela paradox Suponhamos que o codigo do operador seja 30 se ele digitar 30+ vai dar erro preciso fazer de uma forma que o campo edit só aceite numeros inteiros... como?

[Rodrigo Miss 1]

Opa amigo...

veja aki

[Renanbg 1]

Opa...Vou tentar usar a sua function e ver como ficaobrigado

[Hugo Slepicka 0]

No OnKeyPress do DBEDIT faça:

 

Não esqueça de ativar o Key Preview do Form para TRUE

 

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);begin  //Bloqueia Tudo menos Numeros e o BackSpace...  If not( key in['0'..'9',#8] ) then  begin   key:=#0;  end;end;

[Renanbg 1]

Muito legal essa, menos código que a function e muito funcionalvou usar essa Obrigado

[Hugo Slepicka 0]

Beleza!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Rodrigo Miss 1]

isto mesmo!minha função serve pra colocar no clicke de um botao por exemplo, em situações onde "foge" do onKeyPress. ....