Capturar teclas en edit

[[eduarcol]]

Prueba los eventos: onkeypress, onkeydown, onkeyup, para ver cual se ajusta a lo que quieres

[roman]

Empezado por eduarcol

Prueba los eventos: onkeypress, onkeydown, onkeyup, para ver cual se ajusta a lo que quieres

En este caso ninguno ya que se trata de un componente heredado. Quizá los correspondientes métodos KeyPress, KeyDown, KeyUp.

// Saludos

[sur-se]

Hola, ya he encontrado como hacerlo. Indagando por la VCL he visto que el procedimiento keypress se puede sobrecargar. Así pues me he definido un método:
protected
{ Protected declarations }
procedure KeyPress(var Key: Char); override;

Y ya capturo las teclas antes de que le llegue al edit y puedo poner el key:=#0 para que la ignore.
Se me plantea ahora otra cuestión ya que un usuario puede llegar pegar un texto, pero me interesaría poder analizar el texto que se va a pegar antes de que se rellene el edit. Ahí no hay keypress ni nada similiar. ¿Como podría hacerlo? ¿Debería abrir otro hilo de consulta quizás?
Gracias a todos.

[sur-se]

Hola, rebobino porque ahora si captura las teclas y lo gestiona bien, pero se come el resto de las teclas, por ejemplo Supr, Del, flechas de cursor, etc.
¿Como puedo cambiarlo?

[jachguate]

Supongo que con dejar pasar todos los caracteres no imprimibles (ascii < 32) debiera reestablecerse el comportamiento normal.

Hasta luego.

[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.

[roman]

No sé si es la solución ideal pero acabo de probar esto que parece funcionar:

Código Delphi [-]
uses
  ClipBrd;

(* Manejador del mensaje WM_CHAR *)
procedure TMyEdit.WMPaste(var Msg: TWMPaste);
var
  V, Code: Integer;

begin
  Val(Clipboard.AsText, V, Code);
  if Code = 0 then
    inherited;
end;

// Saludos