Verificar tecla pressionada no evento OnChange

Question

1) Como fa�o para reconecer a tecla prescionada dentro do evento OnChange?
2) Como fa�o para restringir as teclas prescionadas entre 0 e 9 e � ?

Tentei o evento OnKeyDown e OnKeyPress porem o evento OnChange � executado antes.

Obrigado pela aten��o.

Robsonselzelin · Answer

De qual componente estamos falando, Edit, Memo, Combo? O que vc quer fazer no OnChange?...

Prilady · Answer

Porque vc nao tenta dentro do evento onkeypress chamar o evento onchange?...

Ullrich · Answer

Apenas quero restringir as as teclas entre (0 e 9 ) e o sinal de �, isso dentro do evento OnChange.Estou Usando um TEdit...

Rjun · Answer

Talvez voc� esteja fazendo algo errado. Para limitar as teclas possiveis, o evento OnKeyPress � o indicado.

begin
  if not (key in [0..9, ���]) then
    key := 0;
end;

Ullrich · Answer

begin  if not (key in [0..9, ���]) then    key := #0;end;O codigo funciona perfeitamente, o problema � que meu procedimento prescisa estar no evento OnChange, e o evento OnChange � chamado antes do evento OnKeyPress.   Eu presciso fazer a verifica��o da tecla dentro do OnChange, como fa�o isso ???Obrigado pela aten��o....

Marco Salles · Answer

[quote:13311e1094]o evento OnChange � chamado antes do evento OnKeyPress. [/quote:13311e1094]Acho que voce deve estar fazendo confus�oAlem disso n�o tem o not como voce inicialmente postou [quote:13311e1094]if [b:13311e1094]no[/b:13311e1094]t (key in [�0�..�9�,���]) then[/quote:13311e1094]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginif (key in [�0�..�9�,���]) then  key := #0;end;...

Ullrich · Answer

putz, desculpa ia galerata tudo certo no evento OnKeyPress ! !Valeu as dicas....

F�rum Verificar tecla pressionada no evento OnChange #340057