Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   evento keypress (https://www.clubdelphi.com/foros/showthread.php?t=7776)

llonigualker 14-12-2004 10:02:10

Y a nadie se le ha ocurrido pobar con el evento "Onkeydown" y key=vk_return? (Siempre que el keypreview del form este a true, claro)

Probadlo.

Saludos.

Minotaure 23-01-2008 13:31:29

Mismo problema: no detecta el enter
 
Utilizo Delphi 6 y tengo el mismo problema que tenía ronson.
En el evento KeyPress de un edit tengo esto:
Código:

  if (( Key = #13 ) {and ( QLinies.State in [dsEdit,dsInsert])}) then
  begin
//codigo
  end;

Pues el problema es que cuando presiono enter ni tan siquiera me entra en el evento KeyPress, tampoco si presiono Mayus+Enter como decían por aquí. En cambio al presionar cualquier otra tecla sí que me entra en el evento (hasta con la tecla de retroceso/borrar).
En el form tengo la propieadad KeyPreview=True.
Yo estoy trabajando en un ordenador de sobremesa, no un portátil.

La verdad es que llevo muchas horas probando esto hasta que he encontrado este hilo. La verdad es que no sé que puede ser. ¿Un error del Delphi 6?

Minotaure 23-01-2008 14:09:36

He descubierto el problema
 
Haciendo pruebas con un Form en blanco he descubierto el problema: cuándo había un único componente no había ningún problema: detectaba el enter.
Al haber más de uno lo que hacia en el primer enter pasa el foco al siguiente componente (como un Tab). Esto es porqué está definido en el global aplicación.

Ahora me las intentaré apañar con el evento on exit.

Minio 18-03-2008 12:40:57

Como dice llonigualker, probar con el evento OnKeyDown y con la siguiente condicion:

Código Delphi [-]
  if Key = VK_RETURN then
    begin
      Key := 0;
      SpeedButtonClick(sender);
    end

Siempre que la propiedad KeyPreview del formulario este a true

Nereida 28-04-2008 10:20:48

Cita:

Empezado por Minio (Mensaje 273891)
Como dice llonigualker, probar con el evento OnKeyDown y con la siguiente condicion:


Código Delphi [-]
if Key = VK_RETURN then
begin
Key := 0;
SpeedButtonClick(sender);
end





Siempre que la propiedad KeyPreview del formulario este a true

Probé eso que dijiste aunque puede que lo entendiera mal.
Yo puse un:

Código:


if key=13 then
showmessage('entro');
end;

simplemente de prueba para ver si entraba en un dbedit que tengo.
No me funciona pero en cambio, si le doy a MAYUS + INTRO si que entra en el evento Keypress del dbedit.
Como puedo solucionar esto???

Saludos

Minio 28-04-2008 12:11:32

Cambia del evento OnKeyPress al OnKeyDown, y recuerda poner la propiedad KeyPreview del formulario a True.

Nereida 28-04-2008 12:20:04

Cita:

Empezado por Minio (Mensaje 282948)
Cambia del evento OnKeyPress al OnKeyDown, y recuerda poner la propiedad KeyPreview del formulario a True.

Lo termino de cambiar pero sigue sin hacerlo. Si no es con el mayus + intro sigue sin ir

Minio 28-04-2008 12:56:19

tiene la propiedad KeyPreview del Form a True

Minio 28-04-2008 13:07:51

Mira he probado esto, con el OnKeyPress y funciona:

Formulario donde insertas el DBEdit
KeyPreview -> True

DBEdit en el Evento OnKeyPress
Código Delphi [-]
if key = #13 then
  ShowMessage('Entra');

Y no me hace nada raro, el evento OnKeyDown es prácticamente igual pero cambiamos #13 por VK_RETURN

Nereida 28-04-2008 13:45:44

Minio, lo he probado de las dos maneras pero me sigue sin ir

Minio 28-04-2008 18:14:08

Ahora mismo no se me ocurre por que no funciona, puedes probar con F5 para hacerlo correr paso a paso con F8, para ver que es lo que hace y lo comentas.

Minio 28-04-2008 18:32:41

Tienes algo programado en el OnKeyPress del Formulario?, o en el OnKeyDown del Formulario???

Nereida 29-04-2008 09:00:55

Eliminé todo el contenido del keypress del dbedit y puse lo que me dijiste en el keydown. También realicé el seguimiento paso a paso y lo extraño es que entra en un botón de Aceptar que tengo pero no entra ni en el keydown ni en el keypress.
Se me hace muy raro que ocurra esto.

Saludos

Minio 29-04-2008 09:46:48

Tienes que tener algún código que anule lo que tienes en ese DBEdit, puede que sea lo que dices en ese botón aceptar, ¿Ocurre antes o depués del evento que deberia ejecutar en el DBEdit?

Minio 29-04-2008 09:49:54

Has probado a ver si te admite otra tecla del teclado como por ejemplo una letra ('C' o 'c')?

Nereida 29-04-2008 10:22:26

A ver como me explico: si pulso la tecla de SHIFT y luego la letra me lo toma como dos teclas distintas, no sé si eso es a lo que te referias.
Si pulso el boton MAYUS y le pongo la letra, si que me la reconoce como mayuscula. :confused:
Estoy hecha un lio, no entiendo nada de pq me pasa eso :confused:

Minio 29-04-2008 10:53:30

A lo que referia es que intentases capturar otra tecla que no sea el intro mejor una letra.
De todas formas vamos a ver si esto funciona.

Pon esto en el evento OnEnter del DBEdit.
DBEdit.OnKeyPress := DBEditKeyPress;

Pon el KeyPreview a False, por si tuvieras eentos programados en el form.

Y no se me ocurre otra osa que pruebes tambien el evento OnKeyUp

Nereida 29-04-2008 11:07:53

Ni con esas :( pero bueno a ver si se me ocurre algo pq un compañero mio si que tiene lo del intro y a él le funciona pero poniendo el mismo código a mi me sigue sin ir :(
Gracias por todo

Saludos ^_^

roman 29-04-2008 19:54:24

Cita:

Empezado por Nereida (Mensaje 283171)
Eliminé todo el contenido del keypress del dbedit y puse lo que me dijiste en el keydown. También realicé el seguimiento paso a paso y lo extraño es que entra en un botón de Aceptar que tengo pero no entra ni en el keydown ni en el keypress.
Se me hace muy raro que ocurra esto.

Lo más probable es que ese botón Aceptar es el que está interceptando el evento OnKeyPress. Cuando en un formulario hay un botón con su propiedad Default en true, la tecla ENTER la procesa ese botón (aun cuando no tenga su evento OnClick definido) sin dar oportunidad a ningún otro control a procesarla.

El problema es que procesar el ENTER en un control, habiendo un botón de default es contradictorio y tendrás que decidir entre cual de los dos comportamientos quieres.

// Saludos

Nereida 30-04-2008 15:08:59

He hecho eso y por fin me va.
Ahora tengo que intentar arreglar el código pero vamos q ya me va :D
Muchisimas gracias ^_^


Saludos :D Buah, que contenta estoy pq es que encima lo necesitaba para un trabajo y ahora el programa se va a quedar de lujo.
Gracias otra vez ^_^


La franja horaria es GMT +2. Ahora son las 01:28:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi