Ver Mensaje Individual
  #8  
Antiguo 15-08-2003
Julio César Julio César is offline
Miembro
 
Registrado: may 2003
Posts: 23
Reputación: 0
Julio César Va por buen camino
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
Responder Con Cita