como bloquear teclas

Delphi

04/01/2007

ex: tenho uma classe:
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

Fabiano Góes

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

04/01/2007

Colega,

procedure TForm1.edtNumeroChange(Sender: TObject);
begin
  Classe.Numero := StrToIntDef( edtNumero.Text, 0 );
end;



GOSTEI 0
Fabiano Góes

Fabiano Góes

04/01/2007

valeu Aroldo, obrigado pela atenção !!!


GOSTEI 0
POSTAR