16 respuestas en este tema

[enecumene]

Pues eso, no sé si algunos de ustedes les ha pasado, trabajo con Delphi XE7 y Windows 10, estoy tratando de capturar el botón Enter del teclado en el evento OnKeyPress del objeto:

delphi

procedure TfrmSQLEditor.spinRecordKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then begin
    showMessage('he presionado enter');
    Key := #0;
  end;
end;

No funciona!, ¿me echan una mano?.

 

Saludos.

[Agustin Ortu]

Pon KeyPreview a True en el Form

Editado por Agustin Ortu, 23 mayo 2016 - 08:26 .

[enecumene]

Ah caray, ¿ahora es así?, en versiones anteriores no había que activar esa propiedad.

[Fenareth]

Ah caray, ¿ahora es así?, en versiones anteriores no había que activar esa propiedad.

 

Mmm, al menos desde 2007 si es necesario activar la propiedad... o sería que antes estaba en True por default ? Habría que investigar...

 

Saludox !

[enecumene]

Pues yo he trabajado en las versiones 7, 2007, XE2, XE5 y ninguno tuve que activarlo a excepción de XE5 que no llegué aplicar el KeyPress.

[dooper]

Enhorabuena por la solución enecumene, por parte de Agustín y Fenareth. Tomo nota, aunque no se si en mi caso en Lazarus me será útil, lo probaré.

[enecumene]

Pues sigo teniendo problemas, aún activado la propiedad KeyPreview del formulario (Porque el componente no lo tiene) no captura la tecla, anteriormente no sonaba al presionar la tecla y ahora sí, pero no entra al mensaje, incluso hice lo siguiemte para saber el carácter exacto tampoco entra:

delphi

procedure TfrmSQLEditor.spinRecordKeyPress(Sender: TObject; var Key: Char);
begin
  MessageDLG('Se ha presionado ' + Key, mtInformation,[mbOk],0);
end;

¿Alguien podrá replicar el problema?

[enecumene]

Lo he resuelto usando el evento OnKeyDown:

delphi

procedure TfrmSQLEditor.spinRecordKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Consulta.RecNo := StrToInt(spinRecord.Text);
  end;
end;

Pero aún sigo sin entender por qué no funciona en el evento OnKeyPress.

[Delphius]

Pos... ya me dejas intrigado.

No puedo reproducir el problema, aunque podría ver que sucede en Lazarus.

¿Será que el TSpinEdit tiene alguna cosilla con el evento OnKeyPress?

 

Saludos,

[enecumene]

Pos... ya me dejas intrigado.
No puedo reproducir el problema, aunque podría ver que sucede en Lazarus.
¿Será que el TSpinEdit tiene alguna cosilla con el evento OnKeyPress?
 
Saludos,

Pues yo creo tiene algún bug.

[Delphius]

Por eso yo me lo decía... quien sabe, todo puede ser.

 

Lo que quizá estoy pensando es que al ser un componente tan particular, internamente anule o sobreescriba el evento OnKeyPress justamente para impedir y/o controlar que no se escriba cualquier cosa en el. El TSpinEdit está pensado para escribir números justamente. Asi que quizá esto tiene algo que ver.

 

Lo que si estoy viendo ahora es que en tu último código haces una conversión de string a integer... Creería que no es necesario que captures el texto del TSpinEdit y lo pases a entero. ¿Que no es que el TSpinEdit tiene una propiedad Value o algo por el estilo que almacena el valor actual?

 

Saludos,

[enecumene]

No sabría decirte pero aún sin esa línea y colocando un Showmessage de todos modos no entra sólo suena, por ahí estaba leyendo que hay sobreescribir (Override) con la misma clase del SpinEdit y utilizar la función isValidChar(), pero no encuentro ejemplo de ello.

[Delphius]

Pues que cosas... acabo de probar que sucede en Lazarus esto:

delphi

procedure TForm1.SpinEdit1KeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13
     then Label1.Caption := 'Pulsado: ENTER'
     else Label1.Caption := 'Pulsado: ' + Key;
end;

Y efectivamente, si presiono enter, muestra el respectivo mensaje en el label, mientras que en el TSpinEdit no muestra nada.

Para cualquier otra tecla en label se muestra el carácter en cuestión, y en el caso de números se los ve bien en el TSpinEdit. Si presiono el backspace muestra el símbolo corazón... se me hace que entra en juego el UTF-8 en Lazarus.

 

La verdad es que es bastante curioso lo que dices amigo. Puede que tenga pinta de bug.

 

Saludos,

[enecumene]

Pues acabo de dar con la solución en Delphi, no me pude quedar tranquilo , creé una entrada en mi blog informando de la solución:

http://www.enecumene...edit-en-delphi/

Saludos.

[Delphius]

Si hay que sobreescribir IsValidChar es que justamente internamente el componente está diseñado para anular algunos chars. Entre ellos los que no tienen sentido mostrar para el tipo y uso del componente.
Le apunté medio cerca del palo con mi 2da hipótesis.

En el truco de interpuser class que usas es aconsejable que nombres a esa clase heredada con otro nombre. THackSpinEdit o algo por el estilo.

Saludos,

[Agustin Ortu]

Interesante, use alguna que otra vez este componente en algun form que quedo por ahi

 

Yo apunte al KeyPreview porque algo similar me pasaba cuando queria detectar eventos de pulsacion de teclas, no recuerdo cual era el componente que las ignoraba. Entonces procesaba las teclas en el Form con KeyPreview y listo. No se realmente si es una muy buena idea

 

Ultimamente ando pasando a Actions con Shortcuts para disparar la gran mayoria de eventos del teclado, y redefino el KeyDown (metodo protegido de TForm) como lugar centralizado para capturar lo que me resta. Quiza es cierto que llena de codigo algo innecesario a TForm, pero por lo menos no dependo de un componente en particular. Mas de una vez me paso que por A o por B se desvinculan los eventos de los controles (porque lo cambio, o sin querer, o porque tengo el mal habito de hacer malabares raros con el portapales) y en ningun lado te avisa

[Delphius]

Ultimamente ando pasando a Actions con Shortcuts para disparar la gran mayoria de eventos del teclado, y redefino el KeyDown (metodo protegido de TForm) como lugar centralizado para capturar lo que me resta. Quiza es cierto que llena de codigo algo innecesario a TForm, pero por lo menos no dependo de un componente en particular. Mas de una vez me paso que por A o por B se desvinculan los eventos de los controles (porque lo cambio, o sin querer, o porque tengo el mal habito de hacer malabares raros con el portapales) y en ningun lado te avisa

 

El uso de Actions es quizá lo más aconsejable. Sobre todo si se va a disponer de más de una forma de llegar al mismo evento.

Los controles pueden variar, y los Actions quedan y no hay que tocarlos.

Yo no los usé. Y no porque no me gustaban, simplemente se me pasa por alto. Falta de (buenas) costumbres.

 

Saludos,