Edit keyPressUp

[Guest --brugall --]

Pessoal,

Como eu faço para receber apenas valor numéricos em uma edit, e caso o usuário tenha digitado uma letra ele apaga o valor digitado. Tentei colocar o seguinte:

No evento keyPress

if not (key in [ 0..9]) then

begin

Showmessage('Erro');

edit.text := ' ';

end;

Porém o valor continua na edit.

[Churc]

Opa

Ta certo o que você fez, só faltou você mudar o valor da tecla digitada colocando um Key := #0

if not (Key in ['0'..'9']) then
begin
  Key := #0;
  Beep;
end;

abraços