evento keypress

[ronson]

Es que no sale ni siquiera ningun valor, se lo salta, incluso si pulso la tecla Backspace me sale algo parecido a un cuadrado pero si pulso intro NO ME SALE NADA!!

[__cadetill]

Acabo de probar lo siguiente.

Propiedad del formulario KeyPreview a true y

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  ShowMessage('lolo');
end;

y pulsando el Intro me salta

[ronson]

Pues yo tengo esto:

procedure TfrmAlbaranes.FormKeyPress(Sender: TObject; var Key: Char);
begin
MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
ShowMessage('lolo');
end;


Lo he puesto para probarlo tal y como tu me dices,

la propiedad Keypreview del formulario frmAlbaranes a TRUE y si pulso cualquier tecla me funciona al pelo:

ejemplo: pulso 2 y me sale :

2 has been pressed y despues 'lolo'.

Pero si pulso el intro se lo pasa por los cojones, puede ser que sea alguna propiedad que he tocado por ahi?.

aunque no creo. voy a reiniciar!!.


P.D. Uso windows 2000 aunque creo que eso tendra que ver mas bien poco.

[Nuria]

Lo he vuelto a probar :

Con la propiedad del form KeyPreview = True.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  showmessage('Pulsado Tecla');
  if Key = #13 then
    showmessage('Tecla Enter');
end;

Si que me detecta que la tecla que he pulsado es un intro. No sé que te puede estar pasando .

[ronson]

vamos a ver, he reiniciado y esto no chuta vamos a ver:


Me hace pensar una cosa maquiavelica, tengo un portatil....Osea que estoy en un portatil mi pregunta es la siguiente:

¿Tendra algo que ver?, por que claro todas las demas teclas me las coge, a ver si es un codigo raro.
Por que desde luego tengo que probarlo en un fijo.


No se que pensar claro!!

[ronson]

Lo sabia, es por la puta mierda de portatil, que puta rabia, si pulo MAY+INTRO ese es el caracter #13, que puta rabia de verdad!! Con razon ya me podia volver loco.


Para que lo sepais mi portatil es un ADL SmartBook. ME cago en la puta....



QUE GRANGRENA:

[Nuria]

No sé si tiene algo que ver que estés trabajando en el portatil. Lo que si te digo es que cuando pulso intro y muestro el valor de Key, no tengo ningún valor en el mensaje que muestro por pantalla. Pero me detecta que es #13 (tecla enter).

[tutuk]

hola a mi me pasa lo mismo, si el componente es tedit solo me pasa al siguiente si presiono shit+Enter, tengo delphi 6
y tengo un teclado Millenniun (uno negro con funciones especiales),

¡Será el teclado?

[llonigualker]

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.