Verificar tecla pressionada no evento OnChange
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.
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.
Ullrich
Curtidas 0
Respostas
Robsonselzelin
08/04/2007
De qual componente estamos falando, Edit, Memo, Combo? O que vc quer fazer no OnChange?
GOSTEI 0
Prilady
08/04/2007
Porque vc nao tenta dentro do evento onkeypress chamar o evento onchange?
GOSTEI 0
Ullrich
08/04/2007
Apenas quero restringir as as teclas entre (0 e 9 ) e o sinal de ¬, isso dentro do evento OnChange.
Estou Usando um TEdit
Estou Usando um TEdit
GOSTEI 0
Rjun
08/04/2007
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;
GOSTEI 0
Ullrich
08/04/2007
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.
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.
GOSTEI 0
Marco Salles
08/04/2007
o evento OnChange é chamado antes do evento OnKeyPress.
Acho que voce deve estar fazendo confusão
Alem disso não tem o not como voce inicialmente postou
if [b:13311e1094]no[/b:13311e1094]t (key in [´0´..´9´,´¬´]) then
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key in [´0´..´9´,´¬´]) then
key := #0;
end;
GOSTEI 0
Ullrich
08/04/2007
putz, desculpa ia galera
ta tudo certo no evento OnKeyPress ! !
Valeu as dicas.
ta tudo certo no evento OnKeyPress ! !
Valeu as dicas.
GOSTEI 0