evitar que llegue la pulsacion

[madriles]

hola
utiliza el evento OnKeyPress con algo parecido a esto
if Key = 'T' then exit; //donde T seria la tecla que no deseas, o bien
if (key <'0') or (key >9) then exit;//no te deja meter numeros

[maruenda]

gracias madriles, pero no funciona, sigue llegando la pulsacion.

necesito asignarle algun valor a key, en el evento keydown, para que no llegue la`pulsacion al dbedit. gracias.

[marcoszorrilla]

procedure TForm1.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if (Sender is TdbEdit) and (key ='A') then
 begin
 ShowMessage('Ni te menees');
 Key:=#0;
 end;
end;

Un Saludo.

[maruenda]

GRACIAS MARCOSZORRILLA, Y A LOS DEMAS. HE HECHO LO QUE DICES PERO CON UNA VARIANTE. UTILIZO EL EVENTO ONKEYPRESS PERO DEL FORM. DE ESTA MANERA SI LA TECLA QUE PULSO NO QUIERO QUE LLEGUE A CUALQUIER CONTROL LE ASIGNO EL VALOR #0. DE LA FORMA QUE TU DICES TENDRIA QUE USAR EL EVENTO DE CADA CONTROL.

YA SOLO FALTA QUE ME TOQUE LA PRIMITIVA. JEJEJEJE

[marcoszorrilla]

Hombre era un ejemplo básico, es lógico que utilices un manejador para todo el formulario de la manera que dices.

Y si te toca la primitiva mándanos algún presente.


Un Saludo.