![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() buenaaaaassss. ahi va mi pregunta. quiero evitar que al pulsar determinadas teclas estas se reflejen en el dbedit que tiene el foco.
uso el evento keydown y tengo la propiedad keypreview del form a true aunque pongo a cero key, no funciona. sugerencias ? gracias. procedure Tfclientes.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case key of vk_add: begin // aqui me pongo en modo insercion, siempre // que tenga el form en blanco. si tengo un registro //visualizandolo quiero ignorar la pulsacion key:=0; botoninsertar.click; end; end; |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
![]() 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. |
#4
|
||||
|
||||
Código:
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;
__________________
Guía de Estilo de los Foros Cita:
![]() |
#5
|
|||
|
|||
![]() 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 ![]() |
#6
|
||||
|
||||
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.
__________________
Guía de Estilo de los Foros Cita:
![]() |
![]() |
|
|
![]() |
|