Filtrar entrada de teclado

[[Lepe]]

Código Delphi [-]
procedure TVentas_b.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

  Begin
    if key > 31 then // Dejamos que se pulsen teclas de control
      if not(chr(Key) in ['0','1', '2','3','4','5','6','7','8','9' ]) then
          key := 0; // esto es lo que faltaba, anulamos la tecla.
  end;
end.

Por cierto, si usa el portapapeles, si permitirá pegar letras

Un saludo

[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