Saludos
Puedes validar datos usando el evento OnKeyPress del Edit de la siguiente forma:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key <#48) or (key >#57) then
if key<>#8 then
begin
beep;
showmessage('Solo puedes introducir números');
key:=#0;
edit1.SetFocus;
end;
end;
end.
En la ayuda de Delphi busca Key codes y encontraras todas las teclas del teclado.
Espero que te sea util
|