Hola,
Estoy haciendo una validacion en un TEdit y no se como anular la tecla Key en caso de que se cumpla una condicion. El problema es que necesito hacerlo en el OnKeyDown y en este la variable Key es de tipo Word. En el evento OnKeyPress usaba
Key := #0 , pero aún convertiendolo con
Word(#0) no funciona. También necesito comprobar si la tecla es un número de 0 a 9 o el backspace, en el OnKeyPress hacía
Key in ['0'..'9', #8] .
En definitiva necesitaría traducir este código del evento OnKeyPress al evento OnKeyDown.
Código:
if not (Key in ['0'..'9', #8]) then
Key := #0
else
if (Key <> #8) and (StrToInt(TEdit(Sender).Text + Key) > 999) then
Key := #0;
Muchas gracias.