Filtrar entrada de teclado

[dec]

Hola,

Esto no parece tener problemas con el portapapeles:

Código Delphi [-]
 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 begin
   // #8 is Backspace
   if not (Key in [#8, '0'..'9']) then begin
     ShowMessage('Invalid key');
     // Discard the key
     Key := #0;
   end;
 end;

Por cierto que lo encontré aquí.

Actualización: Parece que sí hay algún problema con el portapapeles: No vale "pegar" letras, ¡pero tampoco números!

[rolando_s]

el codigo que envio lepe funciona 'OK'
en el anterior parece faltar un #antes del 0para que aule la tecla

gracias a ambos