aviso de erro se digitar letra inves de numeros

Delphi

05/08/2010

Queria que meu formulario me desse aviso de erro ('Neste campo so pode ser digitado numero') se no campo for digitado letras
Daniel

Daniel

Curtidas 0

Respostas

Eriley Barbosa

Eriley Barbosa

05/08/2010

Coloque no evento OnKeyPress do dbedit o seguinte código:   if (not (key in ['0'..'9'])) and (ord(key) <> 8) then
  begin
    key := chr(0);
    ShowMessage('Este campo aceita somente números');
  end;   Atenciosamente   Eriley
GOSTEI 0
POSTAR