Re: [delphi-br] quebrando a cabeça com camp o valor

Se me permite duas observações. 1) use if not (Key in ['0'..'9', #8, #9, #13, DecimalSeparator, '-']) then 2) DecimalSeparator por que se o usuario estiver usando ',' ou '.' vai funcionar. Eduardo Alcistemas Informática escreveu: > > kra, fiz uma funçãozinho acho que pode te ajudar, > > no onkey

Re: [delphi-br] quebrando a cabeça com camp o valor

Assim funciona. procedure TForm1.TesteKeyPress(Sender: TObject; var Key: Char); begin if (not (Key in ['0'..'9', DecimalSeparator, #8, #9, #13])) or ((not (Key in [#8, #9, #13])) and (Pos(DecimalSeparator, (Sender as TEdit).Text) > 0) and ((Pos(DecimalSeparator, (Sender as TEdit)