Fórum como bloquear teclas #335649
04/01/2007
0
ex: tenho uma classe:
no form, no evento onChange do edit referente ao field:
no keyPress do Edit fiz assim:
porem quando tento apagar algum caracter com a tecla ´Backspace´ da um erro:
[b:20f5c57728]´is not a valid integer value´[/b:20f5c57728]
[color=red:20f5c57728]como bloquear isso, nao sei se no form mesmo ou na classe, como evitar esse erro ?[/color:20f5c57728]
TClasse = class FNumero: integer; end;
no form, no evento onChange do edit referente ao field:
procedure TForm1.edtNumeroChange(Sender: TObject); begin Classe.Numero := StrToInt( edtNumero.Text ); end;
no keyPress do Edit fiz assim:
If not( key in[´0´..´9´,8, 46] ) then
begin
beep;
key :=0;
end;
porem quando tento apagar algum caracter com a tecla ´Backspace´ da um erro:
[b:20f5c57728]´is not a valid integer value´[/b:20f5c57728]
[color=red:20f5c57728]como bloquear isso, nao sei se no form mesmo ou na classe, como evitar esse erro ?[/color:20f5c57728]
Fabiano Góes
Curtir tópico
+ 0
Responder
Posts
04/01/2007
Aroldo Zanela
Colega,
procedure TForm1.edtNumeroChange(Sender: TObject); begin Classe.Numero := StrToIntDef( edtNumero.Text, 0 ); end;
Responder
Gostei + 0
04/01/2007
Fabiano Góes
valeu Aroldo, obrigado pela atenção !!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)