Capturar teclas en edit

[sur-se]

Hola, pues no. Una vez que redefino el Keypress en mi nuevo componente, entonces ya no me pasa las teclas de suprimir, ctrl+v, etc. a pesar de que le he puesto inherited.

[DarkByte]

Prueba a escibir un function que te devuelva true o false si es o no es un carácter. En ese function podrías poner

Código Delphi [-]
function TeclaAceptada(tecla:string):boolean;
begin
If Tecla = "1" Then
  begin
      Result := False;
   end;
(...)

No he podido comprobar el código pues estoy algo liado con C y estoy sólo echando una mirada al club a ver como anda.